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Group  decision  making  utilizing  the  Delphi  method  can  be 
a  time-consuming  and  difficult  procedure,  especially  when 
the  required  group  membership  is  separated  by  great 
distances.  This  study  designs  and  implements  an  automated 
group  decision  support  sy st ern^wKi ch  may  be  employed  by  a 
single  computer  or  a  networking  system. 

This  particular  model  is  text— based  as  opposed  to 
mathematical -based,  a  radical  departure  from  the  GDSS  models 
currently  in  vogue.  This  program.  Touchstone,  successfully 
translates  the  Delphi  method  of  criteria  development  to  the 
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A.  DEFINITION  OF  THE  PROBLEM 


In  today's  fast-paced  world  community,  the  logistics  of 
assembling  a  group  of  experts  for  the  purpose  of  resolving  a 
particular  problem  has  become  a  problem  unto  itself. 
Conflicting  schedules,  prohibitive  distances,  and  the 
increasing  frequency  of  group  decision-making  efforts  are 
constant  barriers  to  effective  attacks  on  common  problems. 
Even  if  such  problems  were  easily  surmountable,  the 
importance  and  complexity  of  today's  problems  would  require 
a  decision  based  on  the  concensus  of  an  expert  group  rather 
than  the  opinion  of  a  single,  stong-minded  individual. 

B.  THE  NEED  FOR  THE  COMPUTERIZED  GDSS 

Managerial  decision  making  has  become  increasingly  more 
dependent  upon  computer — generated  information.  As  a  result, 
management  is  mare  cognizant  of  the  capabilities  and 
potentials  of  computer — based  systems.  The  computer — based 
system  has  evolved  from  assisting  individuals  in  making  a 
decision  to  supporting  and  enhancing  a  wide  range  of  group 
and  organizational  decisions.  The  question  is  how  to 
effectively  and  efficiently  design  a  distributed  Decision 
Support  System  (DSS)  to  aid  a  group  in  defining,  evaluating, 
modifying,  and  seeking  consensus  in  deriving  the  criteria 
for  a  common  problem.  Recent  literature  in  computer 
conferencing  systems  suggests  that  a  computer — based  Group 


Decision  Support  System  (6DSS)  could t 

1.  Reduce  tension  dua  to  f aca- to— f ace  communications, 

2.  Promotm  aqual  participation,  and 

3.  Favor  -fraa  and  craative  generation  of  ideas. 

C.  SCOPE  OF  TOUCHSTONE 

CO-OP,  a  program  recently  developed  at  the  Naval  Post¬ 
graduate  School,  Monterey,  California,  was  designed  to 
assist  in  the  priori tization  of  previously-developed 
criteria.  Touchstone,  the  program  written  as  an  adjunct  to 
this  thesis,  is  a  prototype  o-f  a  text -oriented,  criteria— 
development  system  which  may  be  utilized  independently  or  as 
a  "front-end"  to  the  CO-OP  program.  Inasmuch  as  it  is  a 
prototype,  there  are  necessary  physical  limitations  to  the 
number  of  problems,  criteria,  and  people  the  system  is 
designed  to  handle. 

While  both  Touchstone  and  CO-OP  are  stand-alone  systems. 
Touchstone  offers  a  solid  baseline  of  developed  criteria 
upon  which  CO-OP  builds,  and  from  which  it  processes  a 
decision,  using  mathematical  modeling.  Touchstone  is  a 
self-contained  system,  with  an  on-line,  on-screen  "users 
manual"  that  provides  specific  information  based  upon  the 
user's  position  and  status  in  the  program.  Use  of  Touch- 
Stone  neither  requires  nor  precludes  the  use  of  CO-OP,  but 
these  two  systems  complement  each  other  in  their  methods  of 


problem  resolution. 


D.  ORGANIZATION  OF  THE  THESIS 


Inasmuch  as  this  thesis  is  project-oriented,  the  actual 
text  herein  is  minimal,  limited  primarily  to  a  description 
of  the  background  for,  and  the  process  of,  putting  the 
Delphi  system  on  an  electronic  medium.  The  bulk  of  the 
information  is  contained  in  the  source  code  found  in 
Appendix  E.  It  is  the  technique  of  implementing  the  text- 
orientation,  the  help  screens,  the  communicative 
"Chatterbox " ,  and  the  hierarchical  text-manipulation,  which 
is  the  essence  of  our  efforts  and  our  thesis.  Touchstone  is 
the  thesis;  this  written  effort  is  merely  a  support  and  a 
description  of  the  true  product  of  our  research. 

E.  FOCUS  OF  THE  THESIS 

This  thesis,  and  its  accompanying  computer  program, 
focus  on  a  particular  aspect  of  group  decision  making.  They 
develop  a  framework  for  guiding  committee  members  to 
individually  generate  criteria  for  a  collective  problem, 
merge  them  together,  and  allow  interactive  negotiation  and 
collective  refinement  of  the  set  of  criteria  representing 
the  problem.  This  concept  is  centered  around  the  premise  of 
the  Delphi  method  of  group  decision-making  and  reflects  the 
attempt  of  that  method  to  provide  anonymous  and  equal 
partnership  in  problem  resolution.  The  peculiarity  of  the 
Touchstone  system  is  its  unique  utilization  of  organized 
text  processing  without  depending  upon  complex  mathematical 
modeling  to  reach  a  conclusion. 
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F.  OBJECTIVE 


Our  objective  is  to  provide  the  proper  mix  o-f  computer 
assistance  and  creative  -freedom  -for  the  Touchstone  users  as 
they  attempt  problem  resolution  with  the  Delphi  method.  The 
program  is  developed  to  support  individuals  and  groups 
having  expertise  in  the  management  -field  but  not  necessarily 
in  the  computer  field.  It  is  our  intent  to  create  an 
automated  group  decision-making  tool  that  will  take 
pressure,  both  real  and  imagined,  away  from  the  individual 
member  serving  on  a  committee,  while  not  compromising  the 
effectiveness  of  the  committee  as  a  whole.  The  system 
should  allow  the  user  to  interact  with  other  members  of  the 
committee,  free  from  the  effects  of  those  members’  actions, 
prejudices,  and  mannerisms. 


II.  THE  DELPHI  METHOD  OF  GROUP  DECISION  MAKING 


A.  BACKGROUND 


Research  literature  on  the  subject  of  the  Delphi 
methodology  gives  a  wide  variety  of  definitions  and 
descriptions.  The  concept,  developed  primarily  by  the  Rand 
corporation  beginning  in  the  late  196(3  *s,  has  some 
fundamental  building  blocks  common  to  most  versions: 


1.  An  individual  who  defines  a  particular  problem. 

2.  A  group  of  experts  gathered  together  to  resolve  a 
particular  problem. 

3.  A  facilitator  who  collects  the  input  from  the 
experts,  collates  it,  and  gives  the  composite 
results  back  to  the  experts  for  further 
consideration. 

4.  Anonymity  in  the  sense  that  the  experts  do  not  know 
the  individual  sources  of  the  collective  information, 
(although  they  may,  in  fact,  know  who  else  is  in  the 
group) . 

The  purpose  of  the  Delphi  methodology  is  the  elimination  of 


external  influences  on  group  concensus  and  decisions. 

The  idea  is  to  improve  the  panel  or  committee 
approach  in  arriving  at  a  forecast  or  estimate  by 
subjecting  the  views  of  the  individual  participants  to 
each  other's  criticism  in  way  that  avoids  face— to— face 
conf rontati on.  [Ref.  13 


It  is  by  this  technique  that  a  free  and  open  discussion  of  a 
problem  may  be  implemented  regardless  of  the  personalities, 
ranks,  or  prestige  of  the  participants.  The  solution  to  the 
problem,  and  little  else,  becomes  the  focus  of  the 


di scussion 


B.  COMPUTERIZATION  OF  THE  DELPHI  METHOD 

Translating  the  Delphi  method  to  the  computer  can  be  a 
relatively  logical  process.  Building  blocks  1  and  2  (see 
II,  A.)  are  essentially  unchanged;  for  building  blocks  3 
and  4,  the  computer  replaces  the  human  involvement.  Touch- 
Stone  refers  to  the  individual  defining  the  problem,  as  the 
'problem  invocator ',  and  to  the  experts  as  the  'committee 
members'.  Through  the  Touchstone  program,  the  computer 
becomes  the  facilitator,  collecting  and  collating  the  expert 
input.  The  anonymity  of  the  experts  is  adequately  main¬ 
tained  by  the  system  to  all  but  the  problem  invocator. 

The  major  advantage  to  automating  the  Delphi  method  is 
time.  The  Delphi  method  is  lengthy  and  cumbersome  when 
executed  on  a  committee  of  any  significant  size.  The 
computer  allows  committee  members  to  be  located  around  the 
world  and  still  to  have  instant  access  to  the  'facilitator ' 
at  any  time  of  day  or  night.  In  this  manner,  problems  may 
be  resolved  in  days  instead  of  months,  and  the  need  to 
physically  assemble  a  group  of  experts  to  resolve  a  problem 
is  all  but  eliminated. 


A.  MODEL  BASE  FOR  GROUP  DECISION  MAKING:  ALTERNATIVES  VS. 

CRITERIA 


Our  framework  far  DSS  includes  modeling  and  model 
usage  as  one  of  three  basic  components,  completely 
integrated  with  data  base  and  dialog  capabilities.  This 
full  integration  is  necessary  to  support  decision-making 
activities  such  as  projection,  deduction,  creation,  and 
comparison  of  alternatives.  These  activities  require 
close  interaction  and  rapid  feedback  between  the  decision 
maker  and  the  computer,  with  strong  and  flexible  control 
mechanisms.  CRef.  2,  p.  2761 


Alternatives  are  defined  as  the  choices  available  for  the 
resolution  of  a  given  problem;  criteria  are  the  guidelines 
to  be  used  in  making  the  final  decision  between  those 
alternatives.  Touchstone  allows  for  the  development  of  both 
of  these  important  aspects  of  any  decision,  by  allowing 
members  to  define,  explain,  discuss,  re-define  and  agree 
upon  a  collective  set  of  alternatives  and  criteria.  Once 
this  initial  decision  has  been  made,  the  remaining  user 
responses  and  actions  are  the  same  for  both.  The  initial 
decision  of  the  committee  member  is  to  make  the  choice 
between  developing  alternatives  or  developing  criteria. 

The  Touchstone  system  uses  the  Model -Dialog  link  as 
described  by  Sprague  and  Car 1st on  in  that  six  basic  steps 
are  utilized: 

1.  Invocation:  user  calls  and  starts  the  model 

2.  Parameter  request:  program  requests  data  or 
parameters 


3.  Parameter  collections  user  supplies  data  or 
parameters 

4.  Interrupts  not  usually  available  other  than 
unrecoverable  terminate  (break)  or  pause. 

5.  Model  completes  run,  notifies  and  presents  results  in 
a  predefined  format  or  report. 

6.  Return  to  step  1  for  another  cycle  if  desired. 

CRef.  2,  pp.  274-2753 

B.  PROBLEM  INVOCATOR 

The  major  design  factor  for  Touchstone  revolves  around 
the  creation  of  the  problem  and  the  responsibilities/limita¬ 
tions  designated  to  resolve  that  problem.  It  was  determined 
early  in  the  research  for  this  project  that  at  least  one 
person  needed  to  be  responsible  for  identifying  the  problems 
and  for  necessary  housekeeping  chores.  We  established  this 
'position*  by  looking  at  a  normal  face-to-face  committee, 
and  emulating  the  positions  within  the  Touchstone  System, 
making  the  "problem  invocator"  the  committee  chairman.  The 
potential  duties  of  the  problem  invocator  have  extensive 
ramifications  and  far  reaching  consequences.  Initially,  the 
invocator  is  responsible  for  naming  the  problem,  providing  a 
short  but  descriptive  definition,  and  (optionally)  expanding 
upon  that  definition  to  any  length  he  feels  necessary.  He 
is  also  responsible  for  designating  the  committee  members, 
adding  and  deleting  members  to  any  committee  as  indicated, 
and  for  removing  completed  problems  from  the  system.  Figures 
16-19  exhibit  screen  menus  with  options  available  to  the 
invocator.  Final  printouts  of  committee  results  and 


archival  printouts  of  tha  Chatterbox  file  are  under  his 
purview  (see  Figure  29). 

One  of  the  most  important  decisions  made  by  the 
invocator  is  that  of  committee  member  anonymity.  The 
date/time/signature  line  in  the  Chatterbox  (Chapter  6, 


paragraph 

D) 

may 

be  modified  to 

delete  the 

automatic 

inclusion 

of 

the 

committei 

t  members'  initials. 

In  this 

manner , 

the 

interaction 

between 

members  may 

be  truly 

anonymous 

and 

in 

keeping 

with  the 

spirit  of  the  Delphi 

method  of  group  decision-making.  The  use  of  the  date/time 
signature  stamp  is  two-fold,  not  only  does  it  provide  a 
reference  point  for  committee  members,  it  also  allows  the 
problem  invocator  to  monitor  the  progress  of  the  committee. 

C.  COMMITTEE  MEMBER 

The  duties  of  the  committee  members  are  relatively 
simple  to  define.  They  are  required  to  input  their  ideas 
and  await  further  Touchstone  system  instruction  at  each 
level.  Although  the  final  product  of  their  labors  can  be 
quite  complex,  the  step-by-step  methodology  simplifies  their 
efforts. 

One  of  the  major  concerns  of  the  Delphi  method  was  that 
committee  members  be  allowed  to  reach  a  concensus  without 
being  intimidated  by  the  leader /invocator,  or  other 
committee  members  CRef.  33.  Psychological  research  has 
shown  that  intimidation  may  occur  by  the  tone  of  a  person's 
voice,  or  even  a  casual  glance  from  a  superior  CRef.  43.  In 
the  case  of  the  Touchstone  system,  the  invocator  defines  the 
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*,  and  has  total  accass  ov«r  tha 
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A.  SCREEN  DESIGN 

The  original  concept  -for  the  screen  design  for  Touch¬ 
stone  mss  to  uee  a  3-window  screen  which  would  incorporate 
the  problee  definition,  the  Chatterbox,  and  the  criteria 
Manipulation.  It  soon  bee see  evident  that  this  technique 
would  not  provide  adequate  space  for  any  of  the  above- 
nentioned  functions.  The  use  of  pop-up  windows  becaee  the 
aost  reasonable  alternative.  Coeesrcial  software  was 
researched ,  but  it  was  felt  that  RAH  resident  windows  did 
not  provide  adequate  flexibility  for  context-sensitive  help 
ecreens. 

The  use  of  Multiple  and/or  "pop-up”  windows  was 
determined  to  be  the  Most  user-friendly  Method  of  providing 
commum  cat  ions  and  on-screen  assistance.  It  was  felt  that 
siaply  refreshing  the  screen  with  the  new  screen,  and  then 
restoring  it  after  the  help  or  Chatterbox  screen  was 
through,  was  too  distracting  to  the  user.  Eaploying  windows 
allowed  the  user's  Main  focus  to  reaain  on  the  problem 
screen,  even  when  using  the  Chatterbox  or  the  help  screens. 

The  present  screen  design  utiliies  a  number  of  separate, 
interactive  screens.  The  main  program  uses  a  single  box 
with  the  Touchstone  logo  at  the  top  of  the  box.  Each  of 
the  other  screens  is  individually  labeled,  depending  upon 

Smaller  boxes  for  the  help  screen,  problem 

19 


its  function. 


explanation  and  Chatterbox  are  layered  onto  the  main  screen 


Any  information  overlaid  by  these  boxes  is  restored  when  the 
box  is  removed.  The  boxes  are  carefully  positioned  for  the 
express  purpose  of  minimizing  the  amount  of  current  informa¬ 
tion  hidden  by  the  overlay.  (See  Figures  36-38). 

Screens  are  designed  for  maximum  user  effectiveness, 
keeping  in  mind,  that  a  "busy"  screen  is  often  confusing. 
Menus  are  used  as  frequently  as  possible,  limiting  the 
number  of  choices  to  a  minimum.  The  basic  background 
colors  are  a  light  blue  for  all  screens,  with  contrasting 
colors  being  utilized  for  special  flags  and  pop— up  windows. 
An  example  of  this  is  the  use  of  a  red  background  for 
certain  error  messages. 

One  of  the  special  features  of  Touchstone's  screen 
design  is  the  Odometer,  which  tracks  and  displays  the  user's 
relative  position  in  the  Touchstone  decision  making  process. 
It  also  indicates  a  Chatterbox  entry  that  the  current  user 
has  not  viewed.  Located  at  the  bottom  of  main  the  screens 
the  Odometer  also  contains  instructions  for  the  use  of  the 
Function  Keys.  (See  Figure  33) . 

B.  DIALOGUE  STYLE 

As  previously  mentioned,  the  program  is  developed  to 
support  individuals  and  groups  who  are  novices  in  computers. 
The  use  of  "special  function"  keys  is  kept  to  a  minimum, 
with  clear  definitions  as  to  their  usage  displayed  in  the 
Odometer.  Thus  the  simplicity  of  Touchstone  eliminates  the 
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necessity  for  a  manager  or  CEO  to  use  a  "computer  chauffeur" 
for  data  input. 

C.  ON-LINE  ASSISTANCE 

Program  assistance  from  Touchstone  is  provided  in  two 
forms,  the  "Introduction"  screen  and  the  "Help"  screens. 
The  "Introduction"  screen  is  an  option  presented  at  the 
beginning  of  each  Touchstone  session,  and  contains  a 
general,  4-page  overview  of  the  program. 

The  initial  idea  for  the  Help  Screens  was  to  implement 
an  "automatic"  screen,  one  which  would  appear  when 
appropriate,  without  user  action.  Three  categories  of  user 
expertise  were  defined,  with  corresponding  levels  of  pop-up 
help  windows.  The  user  would  indicate  his  ability  level  at 
the  beginning  of  each  session,  following  which  the  context- 
sensitive  on-line  help  screens  would  appear  as  the 
programmers  felt  necessary.  Subsequent  research  revealed 
that  this  idea  was  neither  feasible  nor  desirable,  from 
either  the  programmers'  or  the  users'  standpoint. 

The  present  design  of  the  "Help"  screens  for  Touchstone 
fallows  the  basic  premise  used  by  some  of  today's  more 
papular  software.  A  single  function  key  (F-l)  accesses  one 
of  the  many  pre-written  help  screens.  Each  screen  is  coded 
for  access  depending  upon  the  user's  location  within  the 
program.  In  this  manner,  the  help  screens  remain  current 
with  the  user  and  do  not  require  a  complex  set  of  keystrokes 
on  the  user's  part  for  access.  The  "help”  text  is 


frequently  larger  than  the  size  of  the  screens. 


and  a 


scrolling  capability  is  implsmented  to  compsnsats  for  this 
discrspancy. 


V.  THE  DATA  COMPONENT 

A.  DATA  STRUCTURE /MANAGEMENT 

The  primary  purpose  o-f  Touchstone,  that  o-f  criteria/ 
alternative  development,  forces  it  to  rely  almost  completely 
on  the  manipulation  of  text  rather  than  data.  The  data 
component  of  Touchstone  functions  as  a  vehicle  for  flags  and 
arrays.  Each  individual  user  of  Touchstone  is  given  a 
separate  file  for  each  problem  to  which  he  is  assigned. 
That  file  contains  the  user  name,  the  problem  name,  the 
current  status  of  the  user  within  that  problem,  and  the 
cri teria/al ternati ves  that  have  been  developed.  When  this 
file  is  created,  an  entry  is  made  in  the  "master"  file. 
Conversely,  when  a  problem  is  concluded  and  the  user  files 
deleted,  the  master  file  is  updated  accordingly.  These  are 
the  files  dealing  with  text/data  manipulation.  Files 
utilized  by  the  help  screens.  Chatterbox ,  and  problem 
explanation  screens  are  all  text  files.  The  help  screen 
files  have  been  created  by  the  programmers;  the  problem 
explanation  files  is  (optionally)  created  by  the  problem 
invocator  at  the  time  a  new  problem  is  defined;  the 

Chatterbox  files  are  created  and  updated  each  time  the 
Chatterbox  is  used.  The  problem  invocator  has  the  option  to 
print  out  the  Chatterbox  files  at  any  time  he  so  desires. 

Data  Management  concerns  itself  with  the  recording, 
editing,  and  manipulation  of  text  input  for  criteria  and 
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alternatives.  Data  management  for  Touchstone  is  based  upon 
the  complex  alliance  o-f  two  -fundamental  cornerstones:  Flags 
and  Arrays.  The  flags  provide  a  “location  map"  for  all 
members  on  a  committee,  allowing  the  program  (and  the 
problem  invocator)  to  accurately  monitor  the  progress  and 
status  of  each  problem  resolution.  Arrays  provide  the 
structure  necessary  to  contain  and  control  the  free-flow 
text  input  vital  to  creative  thought.  The  algorithm  used 
for  the  marriage  of  these  two  building-blocks  gives  a  large 
degree  of  freedom  to  the  user  while  maintaining  the 
structured  environment  required  by  the  computer. 

The  manipulation  of  data  is  handled  mainly  by  the 
extensive  use  of  arrays.  Data  is  initially  input  directly 
into  a  file.  On  the  next  user — access  this  data  is  brought 
up  in  the  form  of  an  array.  This  technique  allows  the 
sorting  of  individual  files  and,  when  required,  the 
collating  of  multiple-user  files.  It  also  permits  the  user 
to  'edit'  the  text  while  reviewing  his  individual  files. 
When  multiple— user  files  are  collated,  duplicate  records 
are  eliminated,  and  the  array  replaces  the  original  file 
with  a  new,  composite  file  of  criteria. 

Manipulating  text  data  from  a  variety  of  individuals 
calls  for  the  use  of  an  intricate  series  of  flags.  Each 
committee  member's  file  has  a  flag-set  based  on  the  position 
of  that  file  within  the  program.  At  certain  points, 
continuation  in  the  program  is  dependent  upon  the  flag  set 
of  all  other  members  in  the  committee.  In  addition. 


,<  *«  fS . 


overseeing  the  progress  of  each  problem  resolution  is  an 


important  task  o-f  the  problem  invocator.  For  these  reasons. 


a  separate  master  file  was  conceived,  containing  each 


problem  name,  each  member  of  the  committee  dealing  with  each 


problem,  and  the  current  status  of  each  member  within  a 


given  problem. 


The  unique  procedure  "GetTheKeys"  provides  a  variety  of 


options  for  the  system. 


Each  keystroke  is  processed 


individually  allowing  the  length  of  the  input  to  be  varied 


by  the  calling  procedure.  In  that  manner  the  user  is 


prevented  from  entering  data  whose  length  is  in  excess  of 


the  size  of  the  data  field.  The  possibility  of  inputting  a 


string  of  60  characters,  when  the  data  field  was  only  10 


characters  long,  is  thereby  eliminated.  The  reading  of  each 


keystroke  also  allows  the  function  keys  to  be  accessed  at 


any  time  during  the  program,  and  during  the  review  and 


editing  of  the  text  portion  of  the  program,  the  special 


functions  of  the  numeric  keypad  (i.e.  arrows  and  paging 


keys)  are  activated. 


An  important  feature  of  the  data  management  of  Touch- 


Stone  is  that  it  works  in  background  mode,  manipulating 


data,  opening  and  loading  files,  and  functioning  as  a  system 


controller.  It  is  an  typical  example  of  the  "Black  Box"  in 


action.  The  user  inputs  data  and  receives  results  while  the 


intricate  process  of  weaving  the  input  into  a  proper  output 


goes  largely  unnoticed. 


VI. 


THE  COMMUNICATION  COMPONENT 


A.  OVERVIEW 

A  main  -focus  o-f  Touchstone  is  communication — 
communication  among  users,  communication  between  the  user 
and  the  problem  invocator,  and  user  communication  with  the 
program  itsel-f.  Without  this  intricate  network  o-f 
communication,  the  entire  -fabric  o-f  Touchstone  would  be 
lost. 

B.  TEXT  EDITING 

Inasmuch  as  Touchstone  is  highly  involved  in  text 
manipulation ,  a  variety  o-f  techniques  in  performing  this 
manipulation  was  necessary  to  achieve  our  overall  purpose. 
Once  again,  it  was  our  goal  to  provide  as  much  -freedom  as 
possible  for  the  user  while  maintaining  the  necessary  degree 
of  system  integrity.  The  concept  of  using  a  form  of 
wordprocessing  to  input  data  is  expected  to  be  the  most 
"user — friendly"  method  of  inputting  and  manipulating  data. 
Each  keystroke  is  read  and  manipulated  by  our  program.  This 
practice  allows  the  function  keys  and  special  keys  to  be 
programmer — defined  and  available  throughout  the  system. 
Also,  the  on-line  help-screens  are  automatically  provided, 
progressing  throughout  the  program. 

Word-processing  indicates  the  capability  to  block  copy, 
move  text,  read  to  and  from  files,  as  well  as  text 
manipulation.  Touchstone's  version  of  "word-processing"  is 
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really  a  text  editor,  allowing  for  text  input,  erasure, 
scrolling,  paging,  and  home/end-of-f i le  movement.  Three 
specific  versions  of  text-editing  are  utilized  in  Touch- 
Stone,  each  necessitated  by  the  very  different  conditions 
under  which  it  is  used. 

The  expanded  problem  explanation  used  by  the  problem 
invocator  is  a  straight  text  editor  employed  when  a  problem 
is  first  described.  Once  invoked,  a  detailed  explanation  is 
written  to  file  for  later  recall  by  the  committee  members. 
Full  text  manipulation  is  possible  only  by  the  invocator; 
committee  members  are  limited  to  a  read-only  status.  In 
this  manner,  only  the  problem  invocator  has  the  ability  to 
define  the  problem,  ensuring  that  each  committee  member  is 
using  the  same  baseline  information. 

Although  previous  Chatterbox  entries  are  available  for 
review,  text  editing  in  the  Chatterbox  is  available  only  at 
the  specified  point  at  the  end  of  the  file.  Action  in  the 
review  mode  is  limited  to  scrolling  and  paging.  Once  an 
entry  has  been  saved,  it  is  not  available  for  editing.  By 
limiting  editing  access  to  the  entry  being  made,  a 
"permanent"  record  of  Chatterbox  entries  may  be  made. 

Text— editing  in  the  main  section  of  the  program  is 
limited  to  single-line  input.  The  length  of  each  line  is 
location  sensitive  and  specifically  defined.  This  method 
allows  for  a  wide  range  of  functions,  including  the  constant 
access  to  help  and  Chatterbox  screens,  as  well  as  the 
ability  to  input  string  and  numerical  variables  employing 


the  same  procedural  cal 1 


Elimination  o-f  all  "READ"  and 


"READLN"  calls  was  the  unique  contribution  of  this  procedure 
and  the  basis  for  an  increased  elegance  in  programming. 

C.  HELP  SCREENS 

Help  screens  are  important  for  the  system  to  be 
informative.  Help  screens  are  discussed  in  Chapter  IV, 
paragraph  C. 

D.  PROBLEM  EXPLANATION  SCREEN 

The  problem  invocator  communicates  with  the  committee 
members  via  the  "problem  explanation"  box,  accessed  with  the 
F-2  key.  During  the  initial  creation  of  the  problem,  the 
invocator  is  prompted  to  give  a  detailed  explanation  of  the 
new  problem.  If  he  elects  to  do  so,  a  file  of  up  to  100 
text  lines  is  made  available  to  him.  The  committee  member 
then  has  a  custom-made  information  file  for  each  problem  on 
which  he  is  working.  Text  manipulation  is  "read"  and 
"write"  for  the  problem  invocator  (at  the  time  of  problem 
creation  only)  and  "read-only"  for  the  committee  member. 
Since  the  problem  explanation  may  be  considerably  larger 
than  the  problem  explanation  screen,  scrolling  and  page 
up /down  features  are  available  to  the  user. 

E.  THE  CHATTERBOX 

The  primary  purpose  of  the  Chatterbox  is  to  promote  the 
informal  exchange  of  information  among  committee  members. 
It  has  remained  unchanged  in  its  basic  concept  throughout 
the  design  and  coding.  However,  of  the  many  technical 
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enhancements  considered,  those  implemented  were  based 

primarily  upon  user  acceptance. 

Chatterbox  differs  from  a  conventional  notepad  in  a 
number  of  Mays.  As  mentioned  before,  in  order  to  prevent 
"malicious"  erasure  of  text,  previous  entries  of  text  cannot 
be  changed.  Also,  each  individual  problem  has  its  own 
unique,  automatical ly  accessed.  Chatterbox.  Anytime  the 
user  leaves  the  Chatterbox ,  the  file  is  saved  unless  no 
entry  has  been  made.  Any  entry  made  in  the  Chatterbox  is 
date/time/signature  stamped  providing  an  automatic  record  of 
the  user.  The  problem  invocator  has  the  option  of 
eliminating  the  signature  from  the  viewed  stamp  for  any 
given  problem. 

Location  of  the  Chatterbox  was  the  source  of  much 
discussion.  The  Chatterbox  is  located  at  the  right-hand 
side  of  the  screen,  in  order  to  leave  important  information 
residing  in  the  main  screen  visible  to  the  user.  Ideally, 
it  would  be  nice  to  provide  a  movable  window;  however,  in 
this  version,  the  location  of  the  Chatterbox  is  fixed. 

Designed  to  be  used  on  a  single  computer  or  in  a 
network.  Chatterbox  has  a  few  unique  features. 

1)  Only  one  person  may  write  to  Chatterbox  at  a  given 
time,  but  more  than  more  person  may  use  it  on  a 
read-only  basis. 

2)  The  last  80  text  lines  of  a  given  Chatterbox  file 
are  read  into  the  Chatterbox  array,  with  capability 
to  add  up  to  40  lines  of  new  text.  However,  a  flag 
attached  to  the  line  counter  prevents  writing  to 
any  area  except  the  last  forty  lines.  In  that 
manner,  only  new  information  may  be  edited. 

One  of  the  special  features  of  the  Chatterbox  is  to 
locate  the  user,  upon  re— entry,  in  the  place 


3) 


(tin*/ data) ,  where  he  last  logged  out  of  the 
ChattarboM.  This  feature  allot**  hia  to  check  tha 
messages  that  Nara  antarad  aft ar  tha  last  logout. 
Consaquantl y ,  all  ntw  antrias  ara  iaaadiataly 
aval  labia  for  his  review. 

4)  Tha  lina  countar,  in  tha  uppar  right  hand  cornar  of 
tha  Chattarbox ,  allows  for  quick  location  rafaranca 
whan  browsing. 

9)  Standardizing  tha  lina  nuabar  batwaan  tha  raad- 
writa  and  read-only  sections  of  Chatterbox  aada 
this  dalinaation  easier  to  iapleaent.  Tha 
appropriate  placaaant  of  tha  text  retrieval  froa 
tha  files  was  tha  priaary  key  to  controlling  this 
procedure. 

Thera  were  two  specific  issues  which  ware  considered, 
but  rejected  as  part  of  tha  final  design:  1)  The 

iaposition  of  tiae  liaits  for  a  parson  using  the  Chattarbox 
was  discussed  but  not  iaplaaantad.  It  was  felt  that  the  use 
of  a  forty  line  liait  on  each  entry  was  to  be  a  sufficient 
constraint.  2)  We  also  ruled  out  the  possibility  of 
importing  data  files  into  the  Chatterbox.  Such  a  situation 
would  reduce  the  reading  capability  of  the  user,  and  fill 
the  Chatterbox  with  excess  information. 

The  Chatterbox  is  an  integral  part  of  the  Touchstone 
system,  being  as  important  as  the  internal  algorithms  that 
aid  the  users  in  making  a  decision.  Communication,  as 
always,  is  vital  to  any  decision-making  process,  and  the 
Chatterbox  enhances  this  aspect  of  the  system. 
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A.  HARDWARE /SOFTWARE 

Touchstone  tM«  developed  on  •  Mi  crosoft  -based  DOS 
coeputer  with  640K  RAM  end  e  color  card.  Touchstone  can  be 
processed  on  e  duel  disk  floppy  drive  systee  or  e  single 
floppy  disk,  with  e  herd  disk  systee.  Eech  floppy  disk 
drive  should  be  360k  RAM. 

The  Microsoft  Disk  Operating  Systee  utilized  was  version 
3.1.  The  Touchstone  Systee  was  written  in  Turbo  Pascal 


version  3.01.  No  other  software  packages  were  eeployed  in 


the  final  version  of  Touchstone.  The  systee  is  comprised  of 
four  separate  progress  in  the  fore  of  coeeand  filesi 

1)  ATOUCH.COM 

2)  BTOUCH.COM 

3)  CTOUCH.COM 

4)  FLA6SET.COM. 

These  files  are  incorporated  in  a  batch  file  called  TS.bat. 
Each  coeeand  file  is  basically  a  driver  program,  with 


numerous  include  files.  These  include  files  are  listed  in 


Appendix  E.  Documentation  is  done  internally  at  the  begin¬ 
ning  of  each  procedure.  Internal  documentation  lists  the 
f ol lowing: 

Procedure  name. 

Program  supported. 

Local  variables  used. 

Global  variables  used. 

Arrays  used. 

Files  accessed. 


Extarnil  Calls. 

Ex tarns 1  filters  (include  files)  ussd. 

Uhsrs  ths  procsdurs  is  csllsd  from. 

Purpose  erf  ths  procsdurs. 

Ths  of  fort  expended  (manhour s)  was  as  follows:  syst 

analysis  and  design,  100:  research  and  thesis  preparation 
130)  coding,  testing,  and  debugging:  700. 


VIII. 


Touchstone,  originally  concaivtd  a  critaria 
dtvtl  op  want  tool  -for  another  OSS  prograa  i"CO-OP'>. 
subsequently  avolvad  into  a  stand  alona  prograa.  As  a  non- 


aathaaatical ,  taut— or i an tad 


,  this  prograa  has  an  tar  ad  a 


not*  araa  o f  coaputar  support  for  asking  dacisions.  Although 
not  thoroughly  tastad  in  a  networking  anvxronaant ,  tha 


potantial  for  such  a  usa  was  an  intagral  part  of  tha  dasign 
considaration  and  was  1 n corpora tad  in  tha  final  product. 


TouchStona 


ks.  It  provides  a  vehicle  for  criteria 


daval opaant  in  a  group  envi r onaant  using  tha  Delphi  method, 
creating  a  naval  technique  of  coaputar  assistance.  Tha 
objective  of  providing  a  proper  aix  of  coaputar  assistance 
and  creative  fraadoa  in  the  explanation  and  analysis  phase 
of  tha  problea  solving  process,  has  bean  achieved. 


APPENDIX  A 


DATA  DICTIONARY 


A ,  S,  I,  J,  *,  X,  V,  Z:  Various  int»q»r  countart  used 

throughout  the  system. 

L ,  H  and  Ns  Integers  that  ar*  tusMwd  and  valua  paaaad  to 
variable  checkpoint. 

ACT I VEPROBLEMF I LE s  ft  la  of  PROBREC. 

ALT :  Single  charactar  used  in  identifying  tha  f i it  as  an 

Altarnativa  or  Critaria,  to  ba  printed. 

ALTERNATIVE:  A  single  character  ,  A'  or  '  C '  tor  Alterna¬ 

tives  or  Criteria,  used  tor  aasignaant  or  comparisons. 

ANONYMOUS i  Boolean  expression  used  in  the  chatterbox. 

'4ien  created,  the  problem  invocator  has  the  option  to  make 
communications  anonvmous  from  other  committee  memoers. 

AUTHORIZED!  Boolean  expression,  it  true,  allows  the  system 
to  execute,  it  false,  terminates  the  system. 

CH,  CHAs  Single  characters  used  tor  YES/NO  type  questions. 

CHANGE FLAG:  Boolean  variable  responsible  tor  setting  tlaqs 

appropr ;  atel  /  Jependi.nq  on  wnether  the  as  er  is  in  'Alter  a 
tives’  or  'Criteria". 

CHANGE  PE C :  A  single  character  used  to  confirm  whether  *--6 

problem  is  an  Alternative  or  Criteria. 

CHATRFILEs  12  character  string  denoting  the  chatterbox  tiie 
to  be  used. 

CHAT OK :  Boolean  expression  that  controls  the  use  ot  the 

chatterbox  utility. 

CHECi  CHANGE:  n  single  character  used  to  conrirm  wnetner  e 
problem  is  an  Alternative  or  Criteria. 

CHECKPOINT:  Integer  denoting  the  sum  ot  the  first  three 

flags  in  this  record.  These  records  are  sorted  on  this 
field  to  >  ftp  them  m  order  according  to  :h#  level  cf  :~e 
data,  i.e..  Ill  mou  i  J  pquat  e  a  o  1  ec  e  of  data  .>nder  e 

first  major  criteria,  under  the  rirst  *tb-C'it*r;i. 


CHECK8TATE:  Is  a  single  character  a sad  to  track  tha  user's 

position  in  the  system. 

CHKFLA61 ,  CHKFLAG2,  and  CHKFLAG3:  Integers  used  to  number 
the  different  levels  of  al  ternati  ves/cnteria. 

CHOICEt  A  single  character,  'A'  or  'C  for  Alternatives  or 
Criteria,  used  tor  assignment  or  comparisons. 

CHT  s  Single  character  utilized  for  error  trapping 

procedures. 

CLEAR IT:  Integers  used  for  tracking  the  arrays,  advanced 

once  for  each  record. 

CODEARRAY s  String  of  12  characters  used  to  encode  an  decode 
passwords. 

CODE NAME i  String  variab le  used  for  encoding  and  decoding 

user  passwords. 

COUNT,  COUNTED,  COUNTER:  Integers  used  for  tracking  the 

arrays,  advanced  once  for  each  record. 

CRITARRAY:  An  array  of  the  records  in  the  format  of  3RIREC. 

CRITDEF:  String  of  38  characters  defining  the  above 

variable  CRITNAME. 

CRITERIA:  Used  in  conjunction  with  the  record  CRIREC. 

CRITLIHITi  Integer  denoting  the  maximum  number  of  alterna- 
1 1 ves- cr 1  ter  1  a  allowed. 

CRITNAME:  String  of  IS  characters  denoting  cri teri a/al ter¬ 

nati  ves  name. 

DATE:  A  string  of  12  characters  passed  to  a  file  as  the 

day,  month  and  year  for  tracking  the  last  time  a  file  was 

accessed. 

DATELINE:  String  of  12  characters  which  gives  the  last  date 

that  the  file  was  accessed. 

DEFINITION:  String  of  58  characters  which  gives  the  short 

version  of  the  problem  definition. 

DOUBLECOUNTED:  An  integer  counter  used  during  the  merging 

of  files  process. 

FILECHECk:  Boolean  expression 

validity  of  a  filename. 


used  when  checking 


t  ne 


FILEDRIVEx  Single  character  denoting  the  drive  the  data 
files  reside  on. 

FLAGCHOICEx  A  string  of  1  character  used  to  set  users 
problemf lag. 

FLAGCQUNT t  Integers  used  for  tracking  the  arrays,  advanced 
once  for  each  record. 

FLAGENOx  Integer  that  counts  all  files  with  the  same 
problem  name  and  the  same  flag  setting. 

FLAGGEDx  Single  character  used  to  check  committee  member 
status  prior  to  merging  files. 

FLAGlx  Integer  denoting  level  1,  major  criteria. 

FLAG2:  Integer  denoting  level  2,  sub-cri teria. 

FLAG3:  Integer  denoting  level  3,  tertiary  criteria. 

HELPDRIVEs  Single  character  denoting  the  drive  the  help 
files  reside  on. 

HELPER:  Single  character  that  indicates  the  active  help 

screen. 

HELPS I ZE i  Integer  parameter  passed  to  determine  the  size  of 
the  helpscreen. 

TNPUTSTRING:  Used  with  the  variable  STRINGARRAY,  as  a 

passed  parameter  to  the  procedure  GetTheKeys. 

INVOCATOR:  A  single  character  either  a  'A'  or  '  !i '  usea  to 

determine  whether  the  user  is  a  problem  invocator  <M) ,  or  a 
committee  member  (C) . 

KEEPTOGETHER:  An  integer  counter  used  during  the  sorting 

routine  to  keep  the  records  in  the  various  levels  in  the 
order  in  which  they  were  entered. 

KRITERIAFILE:  file  of  CRIREC. 

LIMID:  An  mteqer  parameter  passed  to  a  procedure  denoting 

the  number  of  records  in  an  array. 

LIMMIT:  Integer  set  to  the  maximum  number  of  records  in  an 

array . 

LINEMAR1  :  Boolean  expression  used  to  advance  line  counter 

when  displaying  data  on  the  screen. 

MARKER:  Integer  used  in  conjunction  with  the  gotoXY  call 

when  positioning  data  on  the  screen. 
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MEMBER:  String  of  three  characters  which  indicates  that 

there  is  a  file  in  the  DOS  directory  with  the  extension 
using  this  members  name. 

MEMBERS:  Used  in  conjunction  with  the  record  PROBREC. 

MOVEOVER:  Integer  used  in  conjunction  with  the  gotoXY  call 

for  positioning  data  on  the  screen. 

MOVEX:  Integer  used  with  the  gotoXY  statement  positioning 

data  on  the  screen. 

NAMES:  Variable  used  with  the  record  CRIREC  and  array 

CRITARRAY. 

NAMESTRING:  A  string  of  three  characters  that  is  used  as 

the  extension  when  recalling  the  user's  file. 

NEWCRITLIMIT:  Integer  denoting  the  maximum  number  of  alter- 

nati  ves/cri  teri  a  allowed. 

NEWLIMIT:  An  integer  limiting  the  number  of  entries  that 

can  be  made  for  alternati ves/cri teri a. 

NEWNAME:  3  character  string  used  when  verifying  filenames. 

NEWPROB:  Single  characters  used  for  YES/NO  type  questions. 

NEWSTRING:  12  character  string  denoting  the  file  to  be 

used. 

NUM:  Integers  used  for  numbering  the  cri ter i a/al ternati ves 

when  displayed  an  the  screen. 

NUMMEMS:  Integer  that  tracks  the  number  of  members  on  a 

particular  committee.  Minimum  value  of  2  and  maximum  value 
of  15. 

□NCECOUNTED:  A  boolean  expression  used  in  the  merging 

process. 

PRINTONE:  Boolean  expression  used  when  printing  alterna¬ 

ti  ves/cri ter i a. 

PROBARRAY:  An  array  of  the  records  in  the  format  of  PROBREC. 

PROBLEM:  String  of  seven  characters  which  indicates  that 
there  is  a  file  in  the  DOS  directory  beginning  with  tnis 
string. 

PR08LEMFLAG:  Single  character  used  to  track  the  status  of 

the  user  who  is  logged  on  to  Touchstone. 


PROBNAME:  A  string  of  seven  characters  that  is  used  as  the 

■first  seven  letters  when  recalling  a  user  file. 

PROBS:  Variable  used  with  the  record  PROBREC  and  array 

PROBARRAY. 

PT1,  PT2,  PT3  and  PT4:  Integers  used  as  points  when  defi¬ 
ning  the  various  windows  used  in  the  system. 

QUITFLAG:  Integer  used  in  moving  from  level  to  level  in  the 

alternati ves/cri teria  data  entry. 

QUITFLG1,  QUITFLG2,  QUITFLG3:  Integers  tracking  the  number 
of  al ternati ves/cri teri a  at  the  various  levels. 

RECOUNT:  Integer  used  in  positioning  the  pointer  when  wri¬ 

ting  to  a  users  problem  file. 

SCROLLIT:  Boolean  expression  that  controls  the  use  of  the 

arrow  keys,  so  that  they  may  only  be  used  during  certain 
portions  of  the  program. 

SECNUM:  Integers  used  for  numbering  the  cri teri a/al terna¬ 

ti  ves  when  displayed  on  the  screen. 

SELECTED:  Integers  used  for  tracking  the  arrays.  advanced 

once  for  each  record. 

SHOWME:  Integer  used  in  moving  from  level  to  level  in  the 

al ternati ves/criteria  data  entry. 

STARTMERGE:  A  boolean  expression,  that,  when  true  allows 

all  files  with  the  same  problem  name  to  be  merged  into  one. 

STARTUP:  Boolean  expression  used  in  several  procedures  to 

check  the  validity  of  the  file  requested  or  to  check  for 
dupl ication. 

STATFLAG:  Character  that  tracks  where  the  user  is  in  the 

system. 

STRINGARRAY:  An  array  of  1  to  59  characters,  used  in 

conjunction  with  the  procedure  GetTheKeys. 

STOPGAP:  Boolean  expression  used  to  stop  al ternati ves/ 

criteria  input  beyond  a  predetermined  limit. 

STOPPROG:  Boolean  expression,  if  true  terminates  a  proce¬ 

dure  or  the  entire  program,  depending  on  when  it  is  toggled. 

TEMPFILE:  A  temporary  file  using  text  vice  records. 

TEMPNAME:  String  variable  used  for  encoding  and  decoding 

user  passwords. 


THRNUM:  Integers  used  for  numbering  the  cri teri a/al terna 

tives  when  displayed  on  the  screen. 

TRACK1:  Integer  denoting  number  of  records  in  an  array. 

USERCODE:  8  character  code  used  to  verify  password. 

WEEDDEF:  Boolean  expression  used  to  activate  the  F3  ke' 

when  the  program  goes  past  the  problem  selection  stage. 


APPENDIX  B 


FILE  STRUCTURE 


PRQBREC:  Is  the  master  record  that  holds  the  following 

information  on  all  of  the  problems  in  the  system.  The 
following  variables  comprise  this  record: 

CHECKCHANGE:  A  single  character  used  to  confirm  whether  the 

problem  is  an  Alternative  or  Criteria. 

CHECKSTATE:  Is  a  single  character  used  to  track  the  user's 

position  in  the  system. 

CHOICE:  A  single  character,  'A'  or  'C'  for  Alternatives  or 

Criteria,  used  for  assignment  or  comparisons. 

DATELINE:  String  of  12  characters  which  gives  the  last  date 

that  the  file  was  accessed. 

DEFINITION:  String  of  58  characters  which  gives  the  short 

version  of  the  problem  definition. 

MEMBER:  String  of  three  characters  which  indicates  that 

there  is  a  file  in  the  DOS  directory  with  the  extension 
using  this  members  name. 

NUMMEMS:  Integer  that  tracks  the  number  of  members  on  a 

particular  committee.  Minimum  value  of  2  and  maximum  value 
of  15. 

PROBLEM:  String  of  seven  characters  which  indicates  that 
there  is  a  file  in  the  DOS  directory  beginning  with  this 
string. 


CRIRH-Q*  Is  a  record  that  is  contained  in  a  file  in  DOS. 
There  is  one  file  for  each  committee  member  for  each 
specific  problem.  The  record  contains  the  following 
i nformati on : 

CHECKPOINT:  Integer  denoting  the  sum  of  the  first  three 
flags  in  this  record.  These  records  are  sorted  on  this 
field  to  keep  them  in  order  according  to  the  level  of  tne 
data,  i.e. ,  111  would  equate  a  piece  of  data  under  the 
first  major  criteria,  under  the  first  sab-criteria. 


CRITDEF:  String  of  58  characters  de-fining  the  above 

variable  CRITNAME. 

CRITNAME:  String  of  10  characters  denoting  criteria/alter- 

natives  name. 

FLAG 1 i  Integer  denoting  level  1,  major  criteria. 

FLAG2s  Integer  denoting  level  2,  sub-criteria. 

FLAG3:  Integer  denoting  level  3,  tertiary  criteria. 

STATFLAG:  Character  that  tracks  where  the  user  is  in  the 

system. 


APPENDIX  C 
SCREEN  FORMATS 

FIGURE  1 
TITLE  SCREEN 


'GuLnbTui'vc 

A  Criteria  Development  Program 
for  Group  Decision  Support  By  sterns 

’iicnaei  £ .  Nee  1  ey 
Rooert  T.  wooionaqe 

■'■lavai  .-'ostaraouaTe  scnooi 
Mo rit  erey «  La  1 1  forri  1  a 
iSdb 


! 


I 

t 


V 


FIGURE  2 

THESIS  ADVISOR  SCREEN 


WOULD  YOU  LIKE  «N  INTRODUCTION  10  TOUCHSTONE?  <Y/N> 


FIGURE  5 

INSTRUCTION  SCREEN  #1 


-  touchstone  - 

*  INTRODUCTION  *  INFORMATION  * 

The  TOUCHSTONE  program  is  ass 1 qn«d  to  assist  you  in 
aavaloping  functional  and  Meaningful  group  cntaria  for 
a  Group  Decision  Support  System.  Utilizing  tne  TOUCHSTONE 
program,  you  mill  be  able  to  condense  a  large  list  of 
spontaneously— considered  criteria  into  a  compact,  we 11- 
oefined,  GROUP— SELECTED  set  of  criteria. 

< PRESS  ANY  nEY  TO  CONTINUE) 


FIGURE  6 

INSTRUCTION  SCREEN  #2 


i  CiuCmSTOnc 


*  INTRODUCTION  h  INFORMHTiON  (continued)  * 

These  criteria  will  oe  uniauelv  designee  to  assist  you  in 
resolving  your  current  problem,  whatever  it  miont  be. 
Instruct  ions,  specific  to  eacn  portion  of  the  program,  may 
be  called  at  any  time  bv  Dressing  tne  <F-1>  (“HELP")  key. 
Communication  between  "committee  members"  is  accomplished 
via  tne  "Chatterbox " .  an  electronic  notepad  wmen  is 


(PRESS  wNY  n£V  10  CONTINUE) 


FIGURE  7 

INSTUCTION  SCREEN  #3 

I,. ..  i  -  rouCnSTONt  -  ■■■  — '  ■ 

*  introduction  a  information  icorittnutdi  * 

ctllH  by  tn«  <F— £>  key.  An  axtvndad  axplariatiori  of  tne 
problwa  on  Mhich  you  are  working  My  bo  taan  by  pmaing 
Che  <F— 3>  k*y.  Spacific  information  for  the  us*  of  these 
may  baa  found  on-acraan  at  the  bottom  of  aach  flash— up  box. 

TOUCHSTONE  procaads  through  thrat  lavala  of  critaria 
oavalopMarit.  At  tna  ana  of  aacn  level,  tha  individual 
< PRESS  AN V  KEY  TO  CONTINUE) 


FIGURE  8 

INSTRUCTION  SCREEN  #4 

-  TOUCHSTONE  - 

*  introduction  a  information  (contmuad)  *■ 

critaria  are  co  Pinao  for  orouo  oacmon  and  aditino.  Ones 
there  is  aqreemerrt  on  this  1  aval  of  critaria,  TOUCHSTONE 
•novas  on  to  tha  next  level  and  tha  next  until  tha  THIRD 
l*val  has  bean  comp 1 at  ad .  Finally,  there  is  an  opportunity 
to  adit  tha  completed  list.  This  list  is  than  ready  for  use 
with  a  DSS  to  evaluate  the  specifics  for  each  criterion. 
<PRESS  ANi  KEY  TO  CONTINUE) 
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FIGURE  9 

FILE  INITIALIZATION  SCREEN 


-  touCmS  rowt  - 

•  Flue  initialization  * 

First,  Mfor«  you  start,  1  nttd  sow  vital  iriformat  ion: 
On  which  drive  ana  the  HELP  fila*  locatadi 
DRIVE i  A  (Default i  Drive  A> 

On  which  drive  ana  the  cowan  it  tea  files  located: 
DRIVE:  B  (Default  i  Drive  B> 

Is  the  aoove  information  accurate7  ¥ 


FIGURE  10 

INITIALIZATION  SCREEN  FOR  FIRST  PROBLEM  INVOCATOR 
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FIGURE  11 

INTRODUCTION  SCREEN  < 1 )  FOR  FIRST  PROBLEM  INVOCATQR 


FIGURE  12 

INTRODUCTION  SCREEN  (2)  FOR  FIRST  PROBLEM  INVOCATQR 


-  T  OUCHST  OnE  - 

Than*  you  for-  you  r  initials.  You  will  need  to  UK 
th»s#  to  identify  /ouri»lf  to  tils  comouttr  ea ch  tuns 
you  loo  on.  When  you  oo  loq  on  to  TOUCHSTONE,  you 
Mill  need  to  uic  the  Pnoo  1  vm  Invocator*  PtttMora  if 
you  wisn  to  iflwntify  yoursaif  as  the  proolaa  invocator. 
For-  this  version  of  TOUCHSTONE,  that  pastHord  iss 
*•«  WINDMILL  ••• 

(You  should  mtniori:*  this  paasword  for*  futurs  ust.  If 
you  Mish,  you  htvi  the  ootion  to  chanaa  it  in  the 
Prop  1  am  Invocator  Menu.  )  If  you  prefer*  to  loq  on  as 
a  commit taa  atubar  instaad,  you  Mill  nee d  a  personal 
DMSNcrd  of  your*  on n.  This  word  (lattars  only)  can  be 
up  to  6  letter's  in  lenotni  ******»«► 


FIGURE  13 

INPUT  COMMITTEE  MEMBER/PROBLEM  INVOCATOR  INFORMATION 


touchstone 


**  COMMITTEE  MEMBER  INFORMATION  «n» 

Nom  i*  a  good  tina  to  input  th*  initials  of  tnosa 
paopla  you  know  Mill  naad  to  hava  accass  to 
TOUCHSTONE.  Plaasa  input  tftair  initials  and,  for 
aact> ,  das i gnat •  Mhothar  that  individual  is  to  ba  a 
CPIroblm  invocator  or*  naraly  a  CCloaaittaa  wmoar. 
(Tha  dafault  cnoica  is  Coaauttaa  aaabar.  > 


Init  talst 


laval  (P/C) i  CC3 


(Mnta  '  ZZ  2'  to  axit) 


FIGURE  14 

ACCESS  APPROVAL  SCREEN 


TOUCHSTONE 


ACCESS  APPROVED  -  WELCOME  TO  TOUCHSTONE  * 


FIGURE  15 

ALTERNATIVE/CRITERIA  CHOICE  SCREEN 


TOUCHSTONE 


*•  you  developing  Alternatives  or  Criterie? 


FIGURE  16 

MAIN  INVQCATOR  MENU  SCREEN 


TOUCHSTONE 


InVGCHTGR  menu 


Pr-oblem  File  Marti  du  1  at  1  on 

Personnel  File  Manipulatiori 

Pr-int/Cbat  File  Manipulation 

Chirm*,  A1  temat  ivti  to  Criteria  Setting 

Exit  to  DOS. 


ijcLECT I ON : 


FIGURE  17 

PROBLEM  FILE  MANIPULATION  SCREEN 


touchstone 


INVOCATOR  MENU 


1.  B«qin  New  Problem. 

S.  Delete  a  Problem. 

3.  Check  Statue  cm  a  Specific  Problem. 

4.  Exit  to  Main  Menu 


SELECTIONS 


FIGURE  18 

PERSONNEL  FILE  MANIPULATION  SCREEN 


I OuChSTONE 


INVOCATOR  MENU 


Chariqt  Problem  Invocator  Passworo. 

Add /Delete  a  Problem  Invocator. 

Add  a  Committee  Member  To  An  Existing  Committee 
Delete  a  Member  From  An  Existing  Committee. 

Exit  to  Main  Menu 


SELECTION: 


FIGURE  19 

PR I NT /CHAT  FILE  MANIPULATION  SCREEN 


TOUCHSTONE 


invocator  menu 

1.  Print  Out  Chatterbox  for-  Altarnativas. 

£.  Print  Out  Chatterbox  for  Criteria. 

3.  Closer  a  Chatterbox  Fila  Which  Has  Been 
Laft  Opart  Accidental  ly. 

4.  Print  Out  Developed  Alternatives. 

5.  Print  Out  Developed  Criteria. 

6.  Exit  to  (tain  Menu 


SELECTION: 


FIGURE  20 

PROBLEM  CREATION  SCREEN 
(with  PROBLEM  EXPLANATION  INSERT) 


TOUCHSTONE 


Please  enter  the  name  of  the  new  prooleffl. 

The  name  must  not  exceed  seven  letters:  BOAT 

Please  Give  a  one  line  Definition  of  the  problem: 

I  WOULD  LIKE  TO  BUY  A  BOHT 

Do  you  wish  to  elaborate  on  that  definition?  Y 

-  PROBLEM  EXPLANATION  - 

Th'is  is  a  chance  to  buv  a  boat,  but  I  need  to 
know  how  bis,  how  powerful  a  boat  to  buy  and 
within  what  price  ranqe  I  should  consider  a  boat . 


USE 


UPSDN  MRkOw  (&.  hOMt,  £N£l.  PG  UP.  PS  DM.  f-Kn'auit  I 


FIGURE  21 

PROBLEM  CREATION  SCREEN 
(after  PROBLEM  EXPLANATION  INSERT) 


TOUCHSTONE 


Please  enter  the  name  of  the  new  proolern. 

The  name  must  not  exceed  seven  letters:  BOAT 

Please  give  a  one  line  definition  of  the  problem: 

1  WOULD  LIKE  TO  BUY  P  BOAT 

Do  you  wish  to  elaborate  on  that  definition? 

How  many  members  comprise  this  committee? 

Members  names : 

Will  communications  arid  criteria  be  anonymous? 


FIGURE  22 

PROBLEM  CREATION  SCREEN 


TOUCHSTONE 


PROBLEM 


CPUTION!!  !  Entering  a  proolern  name  from  this  list,  will 
delete  Pl_L  files  with  that  name.  To  auit  without  deleting 
a  prob 1 em,  press  FIO. 


Enter  the  proolern  you  wish  to  deleti 


FIGURE  23 

PROBLEM  STATUS  CHECK  SCREEN  (1) 


-  TOUCHSTONE 

PROBLEM 

BOAT 


Entening  a  Problem  name  fnorn  ■this  list  will  tell 
When  a  member  last  accessed  a  Pnobiern 

Enter*  the  name  of  the  Problem: 


I 


FIGURE  24 

PROBLEM  STATUS  CHECK  SCREEN 


» 


i 

I  - -  TOUCHSTONE 


PROBLEM 


t 

* 

1 


BOAT 

BOAT 


MEMBER  DATE 

MEN  Ernoty 

BOB  Emoty 


1 

( 


(2) 


Press  RETURN  to  continue. 


li.  U. 


FIGURE  25 

CHANGE  PROBLEM  INVOCATOR  PASSWORD  SCREEN 


TOUCHSTONE 


INVOCATOR  MASTER  CODEWORD  CHANGE 

This  section  of  the  program  will  allow  you  to  change 
the  Problem  lnvocator  Password.  Don’t  forget  that 
you  will  need  to  inform  all  other  problem  invocators 
of  the  new  Password  if  you  want  them  to  have  access 
to  Toucnstone. 

For  this  version  of  TOUCHSTONE,  that  password  iss 
***  WINDMILL  *•*■* 

Please  input  tne  new  Problem  lnvocator  password  below: 

**«*«*«« 

< Max: mum  of  6  letters) 


FIGURE  26 

ADD /DELETE  PROBLEM  INVOCATOR /COMMITTEE  MEMBER  SCREEN 


-  TOUCHSTONE  - 

InvQC'ATOR  MASTER  STATUS  CHANGE 

This  section  of  the  program  will  allow  you  to  add, 
delete,  or  change  the  status  of  any  person  you  wish. 

Please  enter  the  initials  of  the  individual  you  want 
to  add/delete/change  <0R>  press  enter  to  return. 

INITIALS:  ABD 


"ABB"  NOw  HAS  ACCESS  TO  TOUCHSTONE.  DO  YOU  WANT  ’-ABD"  TO 
BE  A  PROBLEM  INVOCATOR  OR  COMMITTEE  MEMBER?  <P/C>  * 


n 


FIGURE  27 

SCREEN  TO  ADD  A  COMMITTEE  MEMBER 


-  TOUCHSTONE 

PROBLEM 

BOAT 


Please  enter'  the  narne  of  the  onoDlern  to  which  you 
wish  to  add  a  member. 

The  narne  must  oe  listed  above:  BOAT 


FIGURE  28 

SCREEN  TO  DELETE  A  COMMITTEE  MEMBER 
FROM  AN  EXISTING  COMMITTEE 


Enter-  the  Member' s  PROBLEM: 


FIGURE  29 
F R INTOUT  SCREEN 


TOUCHSTONE 


PROBLEM 

BOAT 


Entering  a  Problem  Name  from  this  list  Mill  orint 
file  for  vou 

To  Quit  without  printing  a  file.  Press  FIO. 
Enter-  the  name  of  the  Proolemi 


FIGURE  30 

CLOSE  CHATTERBOX  FILE 
(IF  LEFT  OPEN  ACCIDENTALLY) 


TOUCHSTONE 


Prooiem  File  Name:  BOAT*** 


CHATTERBOX  FILE  CLOSED 


4,L  f (v  »2 


FIGURE  31 

SCREEN  SHOWING  CHANGE  OF  ALTERNATIVES  TO  CRITERIA 


TOUCHSTONE 


INVOCATOfi  MENU 


1.  Problem  Fi  1*  Mam  pul at iori 

2.  P»r»onn» 1  Fi la  Manipulation 

3.  Pririt/Chat  File  Manipulation 

4.  Chanq*.  fll  temat  i  vet  to  Criteria  Settinp 

5.  Exit  to  DOS. 


SELECTION!  4 

Is  this  sal act  ion  correct?  Y 
You  are  now  developing  Criteria 


FIGURE  32 

COMMITTEE  MEMBER  SIGN-ON  SCREEN 


FIGURE  33 

COMMITTEE  MEMBER  MENU  SCREEN 


TOUCHSTONE 


COMMITTEE  MEMBER  MENU 


At  the  present  timt,  you  are  a  rncmoer  ori  committee 
discuMing  the  following  problems: 


SELECTION  CHOICES:  1)  Choose  a  Drodlem 

SELECTION:  * 


£>  Exit  to  DOS 


FIGURE  34 

COMMITTEE  MEMBER  PROBLEM  INTRODUCTION  SCREEN 


TOUCHSTONE 


A  short,  orie  line  oefirntori  of  BOAT  follows. 


I  WOULD  LIKE  TO  BUY  A  BOAT 

If  at  any  time  you  wish  to  see  a  more  in 
depth  ex □  lariat  ion  of  the  problem,  press  F3 


Press  Return  to  continue 


FIGURE  35 

SAMPLE  COMMITTEE  MEMBER  WORK  SCREEN 

-  TOUCHSTONE  - 

Do  you  wish  to  Change  a  Domoi'i  of  tne  fllternatives? 


Prm  Horn*  Key  to  activate  Scroll  inn.  Press  Enter 
Key  before  answering  tne  Question  after  Scrolling. 


1.  LENGTH  s 

2.  WEIGHT  i 

3.  DISPLACEMT : 

4.  COLOR  l 

5.  MASTS  i 


THE  LENGTH  FROM 
TOTAL  WEIGHT  ON 
WEIGHT  OF  WATER 
COLOR  OF  HULL 
NUMBER  OF  MASTS 


THE  BOW  TO  THE  STERN,  INCLUSIVE 
DRY  LAND,  WITH  BOAT  EMPTY 
DISPLACED  BY  EMPTY,  FLOATING  BOAT 

<1,2,  OR  3) 


Alternative  Development 
Inout  Final  Holding  Review  Alternatives 
Fl-Helo  F2-CHATTERBOX  F3»Proolem  Exolar.ation  F10=Quit  CHATTERBOX  AVAILABLE 


FIGURE  36 

SAMPLE  COMMITTEE  MEMBER  WORK  SCREEN 
(with  PROBLEM  EXPLANATION  INSERT) 


Do  you  Mi sn  to  Change  a  port  ion  of  tne  Alternatives? 

Pres*  Home  Kev  to  activate  Scrolling.  Press  Enter 
Key  before  answering  the  Question  after  Scrolling. 


1. 

2. 

3. 

4. 

5. 


LENGTH  : 
WEIGHT  i 
DISPLACEMT  s 
COLOR  i 
MASTS  , - 


THE  LENGTH  FROM  THE  BOW  TO  THE  STERN,  INCLUSIVE 
TOTAL  WEIGHT  ON  DRY  LAND,  WITH  BOAT  EMPTY 
WEIGHT  OF  WATER  DISPLACED  BY  EMPTY,  FLOATING  BOAT 
COLOR  OF  HULL 

-  PROBLEM  EXPLANATION  - , 


This  i*  a  chance  to  buy  a  boat,  but  I  need  to 


Know  how  big,  how  powerful  a  boat  to  buy  and 
within  what  price  range  I  should  consider  a  boat. 


1 — USE:  ARROW  KEfS,  mQM£,  cNli,  PG  UP.  PG  DN,  TAB,  D£l_,  RETURN — > 


Alternative  Development 
Inout  Final  Holding  Review  filternatives 
F  I  »H»  1  o  F2”CHAT  TERBOX  F3-=Proolem  Explanation  Flu=Quit  CHATTERBOX  AVAILABLE 
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FIGURE  37 

SAMPLE  COMMITTEE  MEMBER  WORK  SCREEN 
(with  CHATTERBOX  INSERT) 

-  TOUCHSTONE  - 

Do  you  Wish  to  Change  a  portion  of  tnc  HI ternat  1  ves ? 

Prns  Home  Key  to  activate  Scrolling.  Press  Enter 
Key  before  answering  trie  Quest i on  after  Scrolling. 

LENGTH  s  THE  LENGTH  FROM  THE  BOW  TO  THE  STERN,  INCLUSIVE 

WEIGHT  :  TOTAL  WEIGHT  ON  DRY  LAND,  WITH  BOAT  EMPTY 

DISPLACEMT s  WEIGHT  OF  WATER  DISPLACED  BY  EMPTY,  FLOATING  BOAT 


COLOR 

MASTS 


Fl-Help 


COLOR  OF  HULL 

NUMBER  OF  MASTS  <1,2,  OR  3) 

.  CHATTERBOX  CF— 1  for  helo,  F-IO  to  Quit!  - 

WORDPROCESSING  SECTION  LINE  #:  82 


This  is  the  first  entry  of  the  chatterbox  for  thf 
Boat  problem.  This  is  just  the  beginning. 

*  MESSAGE  ENDED:  01/26/1987  &  16:24  +*■**  BOB 


- L-USE:  ARROW  KEYS. HOME, END,  PG  UP. PG  DN. TAB, DEL,  RETURN— 1 

A 1 1  ernat  l  ve  Deve  1  o prnent 
Input  Final  Holding  Review  Alternatives 
F2-CHATTERBOX  F3»Proolern  Explanation  F10=Quit  CHATTERBOX  AVAILABLE 

FIGURE  38 

SAMPLE  COMMITTEE  MEMBER  WORK  SCREEN 
(with  CHATTERBOX  HELP  SCREEN  INSERT) 

-  TOUCnSTONE  - 

Do  you  Wisn  to  Chanoe  a  port  ion  of  the  Alternatives? 

-  CHATTERBOX  HELP  SCREEN  - 

WELCOME  TO  THE  WONDERFUL  WORLD  OF  THE  CHATERBOX ! 

This  little  box  allows  you  to  communicate  witn  VE 

other  members  of  your  committee  on  items  which 
need  that  special  touch  of  person  to  person  BOAT 

communication.  Let  me  tell  you  how  it  works. 


1)  When  you  call  up  CHATTERBOX,  you  will  be 
taken  to  the  end  of  your  last  entry.  If  you 
USE:  ARROW  KEYS, HOME, END, PG  UP, PG  DN. TAB, DEL, RETURN 


O  Quit!  - 

LINE  #:  82 


This  is  the  first  entry  of  tne  chatterbox  for  the 
Boat  problem.  This  is  just  the  beginning. 

*  MESSAGE  ENDED:  01/26/1987  (*  16:24  ****  BOB  *** 


‘  .......  » — USE  :  ARROW  KE  VS,  HOME,  END,  PG  UP,  PG  DN,  T  AB.  DEL,  RE  TURN — ' 

Alternative  Development 
Inout  Final  Hold i no  Review  Alternatives 
FI  “Help  F2*Cr»ATTERBOX  F3»Prot)lem  Explanation  F  K»Q  u  1 1  CHATTERBOX  AVAILABLE 
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FIGURE  39 
SIGN-OFF  SCREEN 


APPENDIX  D 
PROGRAM  LISTING 


program  ATOUCH; 
type 

CODEARRAY  -  stringE123; 

var 

HELPDRIVE,  FILEDRIVE,  AUTHORITY 
INVOCATOR 
TEMPFILE 

NAMESTRING,  NAMECHECK 
USERCODE 

TEMPNAME,  CODENAME 
£*IFILTERA.LIBI 

c^ifilterb.lib: 

-C^IFILTERC.  LIB3 

begin 
TITLE; 

GETTHEDATE; 

INTRODUCTION; 
cirscr; 

gotoxv  (14,8) ; 
write  ('Checking  files  -  please  stand  by'); 
CHECK~HEF ILES; 
got ox y  v 14,8) ; 

write  ('Checking  files  -  please  stand  by'); 
INVOCATOR  :=  'W'j 
VER IFYCODEj 

assign  (TEMPFILE,  DRIVEFIL. TMP ' > ; 
rewrite  (TEMPFILE); 

TEMPNAME  :*  concat (HELPDRI VE ,  FILEDRIVE,  AUTHORITY, 

NAMESTRING,  INVOCATOR, 'KIMMY ') ; 
CODENAME  : *  ENCODE  ( TEMPNAME ) ; 
wr : tei n  ( TEMPF I LE , CCDENAME ) : 
close i TEMPFILE)  : 
end.  program  FOUCHSTAI 


:  char; 

:  char; 

:  text; 

:  stringC33: 
s  stringCBl; 

:  stringClZH; 


i 

1 


program  BTOUCH  < INPUT , OUTPUT) ; 


type 

STRING1 
STRINGS 
STRING8 
STRING 10 
STRING 12 


STRING! 13 j 
STRING!33 ; 
STRING! S3 ; 
STRING! 103 ; 
STRING! 123 ; 


PROBREC 


record 

. CHECKSTATE 
CHECKCHANGE 
CHOICE 
PROBLEM 
NUMMEMS 
MEMBER 
DEFINITION 
DATELINE 
end: 


CHAR; 

CHAR; 

CHAR; 

STRING! 7 3 ; 
INTEGER; 
STRINGS; 
STRING 1583 
STRING12; 


CRIREC 


record 

FLAG1 

FLAG2 

FLAGS 

CHECKPOINT 

STATFLAG 

CRITNAME 

CRITDEF 

end; 


INTEGER; 

INTEGER: 

INTEGER; 

INTEGER; 

CHAR; 

STRING 10; 
STRINGI5B3; 


CODEARRAY 
3TRINGARRAY 
CR I "ARRAY 
PROBARRAY 


STRING12: 

array! I.. 593  or  CHAR; 
arrayCl.,503  or  CRIREC; 
array! 1. .2003  of  PROBREC; 


var 

HELPDRIVE,  CHT , 

INVOCATOR,  CHANGEREC  s  CHAR; 

FILEDRIVE, 

FROBLEMFLAG,  HELPER,  ALT  :  CHAR; 

STOPGAP,  CHATOK,  SCROLLIT, 

WEEDDEF,  FILECHECK  ; 

ANCNYliOUS ,  STARTUP,  STOPPROG , 
AUTHORIZED,  PRINTONE  : 


I  ,  «3  , 

PT 1 ,  CCLNT . 

COUNTED , 

MCVEX,  M 

; 

INTEGER; 

W,  X , 

PTZ,  LIMMIT, 

CLEARIT, 

MOVEOVER 

: 

INTEGER: 

Y,  N, 

PT3 ,  TRACK  1 , 

BOOLEAN; 

BOOLEAN; 


COUNTER , 
Z.  A, 
SELECTED. 
B,  L, 
HELPS I ZE, 


PT  4 ,  SECNUli, 

FLAGCOUNT 
NUM,  THRNUM. 


INTEGER; 

INTEGER; 

INTEGER; 


CH,  CHA,  NEWPROB,  CHOICE, 
ALTERNATIVE 
NAMESTRING,  NEWNAME 
PROBNAME 

NEWSTRING,  CHATRFILE,  DATE 


PROBS 
NAMES 

INPUTSTRING 

CRITERIA 
MEMBERS 

KRITERI AFILE 
ACTIVEPROBLEMFILE  : 


STRING!; 
STRING3; 
STRINGC71 ; 
STRING12; 

PROBARRAV; 

CRITARRAY; 

STRINGARRAY; 


■file  of  CRIREC; 
file  of  PROBREC; 


:  CRIREC; 

:  PROBREC; 


£*IFILTER1.LIB> 
C$1 FILTERS. LI S3 
C$IFILTER3. LIB3 
C$IFILTER4. LI81 
IFILTER7. LIBJ 
C$IFILTER9. LIBT 
I $ I FRQNTEND .LIB! 


procedure  rrodi'lampuiation; 


( #*##****###****#***#*■»#**#**♦###**#*##*##**#**#*#***##*## 


* 

PROCEDURE 

PROBMANIPULATI ON 

* 

* 

SUPPORTS  PROGRAM 

3TQUCH. PAS 

* 

LOCAL  VARIABLES 

CH,  SELECTION,  CONTINUE, 

* 

* 

COMPLETED,  CODE 

* 

* 

GLOBAL  VARIABLES 

INPUTSTRING,  SELECTED 

* 

* 

ARRAYS  USED 

NONE 

# 

* 

EXTERNAL  CALLS 

NEWPROBLEM ,  DELETE APROBLEM , 

* 

* 

CHECKAPROBLEM. 

+ 

* 

_QADEMUP .  GETTHEKEYS 

* 

* 

EXTERNAL  FILTERS 

FILTER?. LIB,  FRGNTEND .LIB 

* 

# 

CALLED  FROM 

WINDOW 1 

* 

# 

PURPOSE 

SETS  UP  A  MENU  SCREEN  FCF.  THE 

* 

* 

INVOCATOR  TO  ACCESS  THREE 

* 

» 

DIFFERENT  MANIPULATIONS 

* 

* 

CONCERNING  PROBLEMS. 

* 

*#■»  **  ♦  ■*-«•*-*  4"*-  **■**#  «•-*  ♦♦#♦*#**♦♦♦♦»#*♦♦♦*■»#  + 

var 

CH 


char ; 


2  0 


SELECTION  :  STRING! 13; 

CONTINUE, COMPLETED  :  boolean; 

TEMPFLAGSET  ;  TEXT; 

CODE  :  INTEGER; 


begin  Cprobmani pul  at i onl 
completed  :  =  -false; 
repeat 

clrscr ; 

got ox v  < 22 , 3) ;  write 

gotoxy < 14,7) ;  write 

gotoxy < 14,8) ;  write 

gotoxy ( 14,9) ;  write 

Specific  Problem.'); 

gotoxy ( 14 , 10) ;  write 

gotoxy <23, 14) ;  write 

repeat 

gotoxy  (35,14); 
repeat 

gotoxy  (35,14); 
getthekeys (inputstring , 1 )  ; 

SELECTION  ;=  inputstring; 
val (Selection, Selected, code) ; 
until  SELECTED  in  Cl.. 43; 

gotoxy  (12,15);  write* ' Is  chis  selection 

correct?  Y  '  )  ; 

gotoxy  (40,15);  write  (  Y'); 

gotoxy  (40,15) ; 

repeat 

read  (kbd,CH); 
if  CH  in  C'y','n'3  then 
CH  :=  chr (ord (CH) —32) ; 
until  CH  in  C ' Y ' , ' N ' , #133 ; 
write (CH) ; 
if  CH  in  C'N‘3  then 
CONTINUE  ;=  false 
el  se 

CONTINUE  : =  true; 
until  CONTINUE; 
case  SELECTED  of 

1  :  NewProbiem; 

2  ;  Del eteAProbl em; 

3  :  CheckAProbl em; 

4  :  COMPLETED  :=  true; 
end;  'case  CH3 
LoadEmUp; 

until  completed; 
completed  ;=  false; 
end;  Cprobmanipul ati on! 


( ' INVOCATOR  MENU’); 

('1.  Begin  New  Problem.') 
(’2.  Delete  a  Problem.'); 
( '3.  Check  Status  on  a 

('4.  Exit  to  Main  Menu'); 
('SELECTION:  *'); 


write  ('*■'); 


procedure  Per  stTani  oui  at;  on  ; 


(#•***#■*■  *+*■*■*■*■+■*  **■*#  *#*-** -*-*-»*#*-*■**•-«■•*■  •*■■#♦ -a--**-**  r  «■ 

*  PROCEDURE  :  PROCDURE  FERSMAN I  P'JLAT  I  ON 


* 

SUPPORTS  PROGRAM 

:  3T0UCH. PAS 

* 

* 

LOCAL  VARIABLES 

:  CH,  SELECTION,  CONTINUE, 

* 

* 

COMPLETED,  CODE 

* 

# 

GLOBAL  VARIABLES 

:  INPUTSTRING,  SELECTED 

* 

* 

ARRAYS  USED 

:  NONE 

* 

* 

FILES  ACCESSED 

:  NONE 

* 

* 

EXTERNAL  CALLS 

:  GETTHEKEYS,  CHANGESTATUS . 

* 

* 

ADDAMEMBER ,  DELETEAMEMBER , 

* 

* 

LOADEMUP 

* 

# 

EXTERNAL  FILTERS 

:  FILTER7. LIB ,  FILTER9. LIB, 

* 

* 

FRQNTEND. LIB 

* 

* 

CALLED  FROM 

:  WIND0W1 

* 

* 

PURPOSE 

:  SETS  UP  A  MENU  SCREEN  FOR  THE 

* 

* 

INVOCATOR  TO  ACCESS  THREE 

* 

* 

DIFFERENT  MANIPULATIONS 

* 

* 

CONCERNING  PERSONNEL. 

* 

**-»**-»*****•*  •»****#*********************-)MHHf-*****4MHHMHMHM(.) 


var 

CH  :  char; 

SELECTION  :  STRING! 1j; 

CONTINUE  COMPLETED  ;  boolean; 

CODE  :  INTEGER; 

begin  CPersManipuiationl 
completed  :  =  -false; 
repeat 
,  clrscr; 

gotoxy (22,3) ;  write  ( ' INVOCATOR  MENU ' ) ; 
gotoxy (6,6);  write  i'l.  Change  Problem  Invocator 
Password. ' ) ; 

gotoxy (a,7) ;  write  ('2.  Add/Delete  a  Problem 
Invocator. ' ) ; 

gotoxy <6 . 3) ; 

write  v'3.  Add  a  Committee  riember  To  An  Existina 
Commi ttee.  '  ) ; 

got ox  v  < 6 , 9> ; 

write  ('4.  Delete  a  Member  From  An  Existing 
Commi ttee. ' ) ; 

gotoxy (6, 10) ;  write  ('5.  Exit  to  Main  Menu  ) : 
gotoxy (23, 14) ;  write  ('SELECTION;  *'); 

repeat 

gotoxy  (35,14);  write  (’*'); 

repeat 

got ox v  (35 ,14); 
getthekeys (input st ring, 1; ; 

SELECTION  :=  inputstring; 
val (Sel ect i on , Sel ected , code ) ; 
until  SELECTED  in  Cl.. 53; 

gotoxy  (12,15);  write ( ' Is  this  selection 

corr ect  T  Y  '  )  : 

gotoxy  (40,15);  write  i  '  Y  '  )  ; 

gotoxy  (40,15); 

repeat 

read  ( kbd , CH) ; 


if  CH  in  E  y','n'3  then 
CH  :  =*  chr  (ord  (CH)  -32)  ; 
until  CH  in  C'Y',N'.#133; 
write( CH ) ; 
if  CH  in  C  ’  N  '  3  then 
CONTINUE  :=  false 
el  se 

CONTINUE  :=  true; 
until  CONTINUE; 
case  SELECTED  of 

1  :  CHANGESTATUS; 

2  :  changestatus; 

3  :  AddAMember; 

4  :  Del eteAMember ; 

5  :  COMPLETED  :=  true; 
end;  Cease  CH3- 
LoadEmUp; 

until  completed; 
completed  :=  false; 
end;  CPersMani pul  at i on 3- 


procedure  ChatManipul ati on ; 


* 

PROCEDURE 

CHATMAN I PUL AT I ON 

* 

* 

SUPPORTS  PROGRAM 

3T0UCH. PAS 

* 

* 

LOCAL  VARIABLES 

CH,  SELECTION,  CONTINUE, 

* 

* 

COMPLETED,  CODE 

* 

* 

GLOBAL  VARIABLES 

ALT,  SELECTED,  INPUTSTRING 

* 

* 

ARRAYS  USED 

NONE 

* 

* 

FILES  ACCESSED 

NONE 

* 

* 

EXTERNAL  CALLS 

PRINTCHATTERBOX , 

* 

•* 

PR I NT AL  TERNAT IVES,  CLOSEFILE, 

* 

* 

LOADEMUP ,  GETTHEKEYS 

* 

* 

EXTERNAL  FILTERS 

FRONTEND .LIB 

* 

* 

CALLED  FROM 

WINDOWl 

*• 

# 

PURPOSE 

SETS  UP  A  MENU  SCREEN  FOR  THE 

* 

* 

I NOVCATOR  TO  ACCESS  DIFFERENT 

* 

•* 

MANIPULATIONS  CONCERNING  THE 

* 

* 

PRINTING  OF  FILES  AND  CLOSING 

OF  * 

* 

A  CHATTERBOX  ACCIDENTLY  LEFT 

* 

* 

OPEN. 

# 

var 

CH  :  char; 

SELECTION  :  STRINGC 13; 

CONTINUE, COMPLETED  :  boolean; 

TEMPFLAGSET  :  TEXT; 

CODE  ;  INTEGER; 

begin  CChatMani pul ati onJ 

completed  :=  false; 
repeat 


K 


i 


nmmm 


clrscr ; 


gotoxv (22,3)  ; 

wri  te 

(  ' INVOCATOR  MENU ' ) ; 

gotoxy (S,5)  ; 
for  Alternatives.'); 

write 

Cl. 

Print  Out  Chatterbox 

gotoxy (3,6) ; 
for  Criteria.  '); 

wri  te 

(  '2. 

Print  Out  Chatterbox 

gotoxy (8,7)  ; 
Which  Has  Been ' ) ; 

write 

(  '3. 

Close  a  Chatterbox  File 

gotoxv  <8,S) ; 
Acc i dental 1 y .  ' ) ; 

write 

( 

Left  Open 

gotoxy (8,9) ; 
Alternatives. ' ) ; 

write 

(  '4. 

Print  Out  Developed 

gotoxy (8, 10) ; 
Cri teria. ' ) ; 

wri  te 

(  '5. 

Print  Out  Developed 

gotoxy (8,11); 

write 

(  '6. 

Exit  to  Main  Menu'); 

gotoxy (23, 14)  ; 
repeat 

write 

('SELECTION:  *'); 

gotoxy  (35, 

14)  ; 

write  <’*'); 

repeat 

got ox y  (35,14) ; 
getthekeys (inputstring , 1 ) ; 

SELECTION  :=  inputstring; 
val (Selection , Selected ,cade) ; 
until  SELECTED  in  Cl.. 63; 

gotoxy  (12,15);  writeCIs  this  selection 

correct?  Y ' ) ; 

gotoxy  (40,15);  write  ('Y'); 

gotoxy  (40,15); 

repeat 

read  <kbd,CH>; 
if  CH  in  C'y','n'3  then 
CH  :=  chr (ord (CH) —32) ; 
until  CH  in  C ' Y * , ' N ' , #133 ; 
w r;  te  <CH>  ; 
if  CH  in  E‘N'3  then 
CONTINUE  :=  false 
el  se 

CONTINUE  :  =  true; 
until  CONTINUE; 
case  SELECTED  of 

1  :  begin 

alt  :=  'A'; 
printchatterbox ; 
end ; 

2  :  begin 

alt  ;=  'C ' ; 
pr i ntchatterbox ; 
end; 

3  :  closefile; 

4  :  begin 

alt  ;  =  '  A  ’  ; 

pr i ntal ternat i ves ; 


end 


printal ternati ves; 


end; 

6  :  COMPLETED  :=  true; 
end;  (case  CHI 
LoadEmUp; 
until  completed; 
completed  s  =  -false; 
end;  CChatManipul  ationl- 


procedure  Windowl; 

(******#**#****#****#**********#****«**«***#«****»#**«*««*# 


* 

PROCEDURE 

WIND0W1 

* 

* 

SUPPORTS  PROGRAM 

BTOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

CH,  SELECTION,  CONTINUE, 

* 

* 

COMPLETED,  CODE,  TEMPALT, 

* 

* 

TEMPALTER 

* 

* 

GLOBAL  VARIABLES 

HELPER,  HELPSIZE,  ALTERNATIVE, 

•* 

* 

INPUTSTRING,  SELECTED,  CHATOK, 

* 

* 

NAMESTRING,  FILEDRIVE 

* 

* 

ARRAYS  USED 

NONE 

* 

* 

FILES  ACCESSED 

ACT I VEPROBLEMF I LE 

* 

* 

EXTERNAL  CALLS 

INTROSCREEN,  PRQBMAN I PUL AT I ON . 

* 

* 

PERSMAN I PUL AT I ON 

* 

* 

CHATMAN I PULAT I ON ,  LOADEMUP 

* 

* 

EXTERNAL  FILTERS 

FILTER9. LIB 

* 

* 

CALLED  FROM 

MAIN  BODY  OF  PROGRAM  BTOUCH. PAS 

* 

* 

PURPOSE 

THIS  PROCEDURE  PROVIDES  THE  MAIN 

* 

* 

SCREEN  THE  INVOCATOR  WORKS  FROM. 

* 

* 

HE  WILL  ACCESS  ALL  OTHER 

* 

* 

INVOCATOR  ACTIVITIES  FROM  THIS 

* 

# 

PROCEDURE.  AND  EXIT  TO  DOS  WHEN 

* 

* 

THESE  ACTIONS  ARE  COMPLETED. 

•* 

it*#****#*#*****##*#***^#*#*#***###*****##**#****^#******* ) 


var 

CH 

SELECTION 

CONT I NUE . COMPLETED 

TEMPFLA6SET 

CODE 

TEMPALT,  TEMPALTER 


char  ; 

STRING! 11; 
boolean; 
TEXT; 
INTEGER; 
STRING! 123 ; 


oeqm  CWindowlJ 

COMPLETED  :=  false; 
repeat 

Assi  an  ( act  i  veprabl  em-f  i  1  e  ,  cone  at  ( f  i  1  edr  i  ve  , 
' : probs. tx t ' ) )  ; 

INTROSCREEN; 

HELPER  :=  'C'; 

HELPSIZE  :=  100; 
if  alternative  =  'A'  then 
begi  n 

tempalt  ;=  Alternatives'; 


tempal ter 


9 


: =  'Criteria ’ 

end 
el  se 

begin 

tempal t  :=  'Criteria'; 
tempal ter  :=  ' A1 ternati ves ' ; 
end; 


got ox v (22,3) ;  write  ( ' INVOCATOR  MENU'); 


gotox v (12,6) ; 
Mam  puiation)  ; 

write 

(  '  1. 

Problem  File 

gotoxy (12,7); 
hanipul at ion ' ) ; 

write 

(  '2. 

Personnel  File 

gotoxy (12,8) ; 
Manipulation ' ) ; 

write 

(  '3. 

Print/Chat  File 

gotoxy ( 12,9) ; 

' , tempal ter , 

\ 

write 

(  '4. 

Change,  ',  tempalt, 

'  Setting'); 

gotoxy (12,10); 

write 

(  '5. 

Exit  to  DOS. * ) ; 

gotoxy (23,14) ; 
repeat 

wri  te 

('SELECTION:  *>; 

gotoxy  (35, 

14)  ; 

write  ('*'); 

repeat 

gotoxy  (35, 14)  ; 
getthekeys (inputstring ,  1 )  ; 

SELECTION  : =  inputstring; 
val (Select ion, Selected, cade) ; 
until  SELECTED  in  Cl.. 51 i 

gotoxy  (18,15);  write('Is  this  selection 

correct?  Y ' ) ; 

gotoxy  (46,15);  write  <'Y'); 

gataxy  (46, 15) ; 

repeat 

read  (kbd .CH) ; 
i f  CH  in  C  y ' .  n ‘ 1  then 
CH  : =  chr (ord ( CH) -32) ; 
until  CH  in  t ' Y ' ,  N ' ,#13D; 
wr i te (CH) ; 
it  CH  in  C'N'I  then 
CONTINUE  ;=  false 
el  se 

CONTINUE  :=  true; 
until  CONTINUE; 
case  SELECTED  of 

1  :  Pi^obManipui  ati  on ; 

Z  :  PersiMani  aul  ati  on ; 

3  :  ChatManipul ati on; 

4  :  begin 

if  alternative  =  'C'  then 
begin 

alternative  :=  A'; 

tempalt  :=  Alternatives  ; 

end 
el  se 

begin 

alternative  ;=  C'; 


■i  U  -l-i  -i 


tempalt  : =  'Criteria'; 
end; 

got ox y (12,16); 

wrlte(  You  are  now  developing  ', tempalt); 
end; 

5  :  COMPLETED  :=  true; 
end;  Cease  CH! 

LoadEmUp; 
until  COMPLETED; 

ChatOK  :=  False; 
end;  CWindowl! 


begin  CMain  Program! 

INVOCATOR  s*  ' W ' ; 

GETFILENAMES; 

INTROSCREEN; 

i-f  not  authorized  then  begin 
gotoxy (9,9) ; 

write< 'ACCESS  DENIED  -  TOUCHSTONE  PROGRAM  EXITED!'); 
del  ay (2000) ; 

end;  Cif  not  authorized! 

i-f  (AUTHORIZED)  and  (invocator  =  'M‘>  then  begin 
gotoxv (10,3) ; 

write (  ACCESS  APPROVED  -  WELCOME  TO  TOUCHSTONE!'); 
del  ay (3000) ; 

ALTERNATECHO I CE ; 

(♦****  call  touchstone  programs  *■**■*■*> 
i-f  INVOCATOR  =  M'  then 
window 1 ; 

( #*************##***•♦**»♦#*#***♦#♦*#**  .1 

clrscr ; 
qotoxv  (4,3) ; 

write  ('THANK  YOU  FOR  USING  TOUCHSTONE  -  HAVE  A  NICE 
DAY ! ' ) ; 

delay  (2000); 

authorized  :=  false; 

end;  C i r  AUTHORIZED! 

end.  CMain  Program! 


i 

I 


program  CTOUCH < INPUT, OUTPUT) 


type 

STRING1 
STRINGS 
STRINGS 
STRING 10 
STRING 12 


■  STRING! 13; 

»  STRING! 3 3 ; 

=*  STRING! S3 : 

*  STRING! 103 ; 

*  STRING! 123 ; 


PROBREC 


CRIREC 


CODEARRAY 
STRINGARRAY 
CRI TARRAY 
PRQBARRAY 


record 

CHECKSTATE 

CHECKCHANGE 

CHOICE 

PROBLEM 

NUMMEMS 

MEMBER 

DEFINITION 

DATELINE 


t  CHAR; 

:  CHAR; 

:  CHAR; 
s  STRINGI73 ; 
;  INTEGER; 

:  STRINGS; 

:  STRING 158 3 
:  STRING12; 


rtcord 

FLAG1 

FLAG2 

FLAGS 

CHECKPOINT 

STATFLAG 

CRITNAME 

CRITDEF 

end; 


INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

CHAR; 

STRING 10; 
STRING 1583 ; 


=  STRING12: 

»  array Cl.. 59 3  of  CHAR; 

-  array! 1 .. 1503  of  CRIREC: 

=  array Cl. .2003  of  PROBREC: 


HELPDRIVE,  CHT , 
INVOCATOR,  CHANGEREC 
^ILEDRIVE, 

PRQBLEMFLAG.  HELFER.  ALT 


CHAR: 

CHAR : 


STOPGAP,  CHfiTOK,  SCROLL IT, 
WEEDDEF ,  F ILECHECK 
ANONYMOUS,  STARTUP, 

LINEMARK,  STOPPROG,  AUTHORIZED 


BOOLEAN; 

BOOLEAN; 


A,  QUITFLG1,  TRACK 1 ,  COUNT, 
HELPSIZE,  PT1,  W 

B,  QUITFLG2 .  MOVEX, 

PT2 .  X 


INTEGER; 

INTEGER; 


I,  QUITFLG3,  THRNUM , 
MCVEOVER,  PT3,  Y 

COUNTER , 

. 

INTEGER; 

J,  CHKFLAG 1 ,  L I MM IT, 
SELECTED,  PT  4 ,  Z 

RECOUNT . 

■ 

INTEGER: 

L,  CHKFLAG2,  3ECNUM, 
NUM 

COUNTED . 

• 

INTEGER; 

M,  CHKFLAG3.  SHOWME, 
CRITLIMIT 

CLEAR IT. 

• 

INTEGER: 

N,  QUITFLAG,  MARKER. 
NEWCR I TL I M I T 

• 

INTEGER; 

FLAGCHOICE,  CH,  CHA, 
CHOICE,  ALTERNATIVE 

NEWPROB , 

m 

m 

STRING1 ; 

NAMESTRING,  NEWNAME 

: 

STRINGS; 

PROBNAME 

• 

■ 

STRINGC7I; 

NEWSTRING,  CHATRFILE 

,  DATE 

• 

• 

STRING12; 

TEMPFILE 

• 

m 

TEXT; 

PROBS 

. 

PROBARRAY; 

NAMES 

2 

CRITARRAY; 

INPUTSTRING 

m 

• 

STRINGARRAY; 

CRITERIA 

■ 

■ 

CRIREC; 

MEMBERS 

■ 

PROBREC: 

KRITERIAFILE 

• 

■file  of  CRIREC: 

ACT I VEPROBLEMF I LE 

• 

• 

file  of  PROBREC 

I4IFILTER1  .LIBJ 

c*ifilter2.lib: 

C*IFILTER3.LIB3 
C*IFILTER4.LIB> 
c* ifilter6.l:b] 

t S IF ILTER7. LIB] 
I4IFILTER9.LIB} 

c*itailend.lib: 


procedure  Ini tVari abl es; 


*  PROCEDURE  :  INITVARI ABLES  * 

*  SUPPORTS  PROGRAM  :  CTOUCH. PAS  * 

*  LOCAL  VARIABLES  s  CH,  TEMPALT  * 

*  GLOBAL  VARIABLES  :  PT1,  PT2,  PT3,  PT 4 ,  QUITFLG1 .  * 

*  QUITFLAG2.  L,  M,  N,  QUI TFLG3 ,  * 

*  SHOWME.  THRNUM,  3ECNUM.  QUITFLAG.  * 

*  CHKFLAG1 ,  STARTUP,  STOPGAP,  * 

*  SCROLLIT,  Y,  NUM,  CRITLIMIT,  * 

*  NEWCRITLIMIT,  RECOUNT,  CHANGEREC,  * 

*  CHA,  COUNT,  FILEDRIVE,  NAMESTRING,* 

*  PROBNAME,  ALTERNATIVE,  NEWSTRING,  * 

*  MEMBERS,  Z,  CRITERIA,  PROBLEMFLAG , * 

*  INPUTSTRING,  CHM  * 

*  ARRAYS  USED  :  NONE  * 

*  FILES  ACCESSED  :  ACT I VEPROBLEMF ILE ,  KRITERIAFILE  * 

*  EXTERNAL  CALLS  :  GETTHEKEYS,  ODOMETER  * 

*  EXTERNAL  FILTERS  :  FILTERS. LIB,  F ILTER9. LIB  * 

*  CALLED  FROM  :  WEEDHOPPER _MENU  * 

*  PURPOSE  :  INITIALIZES  VARIABLES,  CHECKS  * 

*  KRITERIAFILES  «• 

*##*♦#****#*♦**■*-*****■**•**  »**■»******»***********»•«**-»*»«**) 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


CHM  ;  CHAR: 

TEMPALT  :  STRING! 121; 

begin  C Ini tVar i abl esl 

ptl  s »  2:  pt2  :=*  2:  pt3 
windaw(ccl ,pt2,pt3,pt4) ; 


pt4  :*  21; 
dr*cr ; 


scount  :: 


Count  : =  1 ; 
CHA  : *  N • ; 


3ri teria. rlaql  :=  0;  Quitrlgl  1: 

ShowMe  :=  3;  L  :  *  3; 

critsria. f Iag2  :=  0;  QuitFlg2  : *  1; 

ThrNum  :*  1;  M  :=  0; 

criteria. tlag3  3;  QuitFIgC  : =  1; 

SecNum  :=  l;  N  :=  0; 

SuitFlag  :  «  0;  Y  :*  1;  Count  :=  1; 

ChkFlagl  :  =»  0;  Num  :=  1;  CHA  :=  N'; 

Startup  : *  True;  CritLimit  :=  5; 

NewCritLimit  : =  10; 

StopGap  :=  Trues  Recount  :**  0; 

changerec  :=  N  ; 

5cr oi lit  ~alse: 

Asai gn ( Acti veProbl emFi 1 e , cone at (FILEDRIVE , ' : Protos . tx t  > > 

Reset (Acti veProb 1 emFi 1 e) ; 

repeat 

read (Act i veProbl emFi 1 e , Members) ; 
until  (Members. Member  =  NameStrina)  and 
(Members. FrcoI em  =  ProbName)  anc 
< member s . chei ce  =  aiternati ve) ; 

NewStrinq  :=  Probname+al ternati ve+ ^Members, member ; 
c 1 ose (Act i veProb I enFi 1 e ) ; 

Assign  (kri  ter  i  aF  i  1  e  ,  cone  at  ( F I LEDR I VE  .  '  :  '  ,  newstr  me)  1  : 


a 


reset <kr 1 tsriaf 1 lei ; 
z  ia  f  i 1 esi ze < kri ter i af  i  1*>  : 
if  z  ■  II  then 
begi  n 

Startup  i*  Falsa;  probl emflaq  :* 
Criteria.Statf  lag  :  3  probl emf  i aq; 
mambers.  CheckStata  :»  probl  am-f  1  ag; 
mambars.chackchange  :*  chanqerec: 
closalkn  taridtile;  : 
and; 

if  z  >  0  than 
bag  in 

rasat (KritariaFi la) ; 

Mhila  not  EOF (KritariaFi la)  do 
bagin  (While  Statement) 

raad (Kr i tariaFi la, Cr i tar i a) ; 
probl emf lag  z»  Cri tari a. StatFl ag; 
odometer ; 

and;  (Whale  Statement! 

close  <Kr i tar i aFi 1  a) : 
end; 

case  problem-flag  o-f 

'a'  :  if  startup  than 

baqan  (If  Statement! 

if  alternative  *  A'  than 
tampalt  :»  Alternatives 
el  sa 

tampalt  :  =*  Criteria'; 
gotoXY (21 , 11) ; 

Write('Do  you  wish  to  review  your 
' , tempal t , ' ?  ' ) ; 

qotox y (65,11) ; 

repeat 

qetthekevs  i  Inout  3tr  1  no  ,  1  ; 
cha  : »  inputstring; 
qotox y (61,11); 
chm  : =  cha; 

until  chm  in  C'Y  ,  N  ]; 
cirscr ; 

and;  (If  Statement! 

b’  :  bagin  (If  Statement! 
gotoXY (15,6) ; 

Writa('You  are  entering  the  Sub  Criteria 
1 evel .  If  N  ; 
gotoXY ( 15,7' ; 

Write!  this  is  the  initial  entrv,  you 
may  review  the’); 
gotoXY <15,8' ; 

Write! 'last  level  of  criteria,  but  you 
may  not  change  '  ) ; 


gotoXY (15,9) ; 

Write('it.  However  you  may  review  the 
criteria  you ' ) ; 
gotoXY (15,10) ; 

WriteC'have  already  entered  at  this 
level  and  change'); 
gotoXY  <15,11); 

Write('that.  Do  you  wish  to  review  vour 
criteria?  ' ) : 
gotoxy (61,11); 

repeat 

getthekeys ( Inputstri ng , 1 ) ; 
cha  8s  inputstring; 
gotoxy  (61,11); 
chm  8s  cha; 

until  chm  in  C'Y',’N'l; 
clrscr ; 

end;  (If  Statement! 

c'  :  begin  (If  Statement! 

gotoXY (14,6) ; 

Writei'You  are  entering  the  Tertiary  , 

'  Criteria  level.  If  ‘>8 
gotoXY (14,7) s 

Write('this  is  the  initial  entry,  you 
mav  review  the ' ) s 
gotoXY ( 14 ,8) : 

Writa( 'last  level  of  criteria,  but  vou 
•ay  not  change ‘ ) ; 
gotoXY (14,9) ; 

Write('it.  However  you  may  review  the 
cri teria  you ' ) ; 
gotoXY (14,10) s 

Wrtte('have  already  entered  at  this 
level  and  chanqe  : 
gotoXY (14,ll)s 

Write('that.  Do  you  wish  to  review  your 

cri ter l a?  ' ) ; 
goto*  v (61 , 1 1 ) : 

repeat 

getthekeys ( Inputstr i ng ,1)8 
cha  s 35  inf  jtstrings 
gotoxy (61,11); 
chm  i **  cha; 

unt l .  chm  in  CV','N]; 
clrscr; 

cno;  (If  Statement! 

h,k,n,q,j,m,p  ; 

begin  (Inside  case  Statement! 
gotoXY (15,7) ; 

Write('Your  flag  has  been  set  statinq  that  you 
have  >  ; 
qotoX Y (15.8) ; 

iNritei  finished  mputing  criteria  at  the  last 
1 evel . ' ) 8 
qotoXY (15,9>  ; 


A  y.v. 


(ViiW 


Write('You  may  not  enter  any  mors  criteria  at 
this'); 
gotoXY (15, 10) ; 

Write (  time.  However  you  may  review  the 
cri  ten  a  you  '  )  ; 
gotoXY (15,11); 

Write( 'have  already  entered,  but  you  may  not 
chanqe  it.  '  ) : 
gotoXY (15.12) : 

Writei  Press  Return  to  continue.  '); 
cha  x *  * Y ' ; 

getthekeys ( Input str i ng ,  1 ) ; 
clrscr; 

end;  {Inside  case  Statement) 

i * , *1 ' , 'o'  x 

begin  {Inside  case  Statement) 
gotoXY< 15,7)  ; 

Write('All  members  o-f  the  committee  have 
-finished  ' )  ; 
gotoXY ( 15 , S)  ; 

Write( 'entering  their  criteria.  You  may  now 
revi ew ' ) ; 
gotoXY  (  15,=?)  ; 

Write('all  criteria  that  has  been  entered.  Be 
advi sed ' ) ; 
qotoXY (15, 10) ; 

Writev'that  this  procedure  will  be  repeated 
unti 1  there ' ) ; 
gotoXY (15,11); 

Write ('is  a  resolution  between  all  members 
concerni ng  '  ) ; 
gotoXY (15,12) ; 

Write(  what  criteria  is  to  be  kept.  P’-ess 
RETURN  to  '  '>  ; 
gotoXY (15,13); 

Write( 'continue.  '  ) ; 
cha  : =  / ’ ; 

qetthekevs  ^Inputstrmq.l)  ; 
clrscr ; 

end;  {Inside  case  Statement) 

end;  Cease  statement) 
end;  { Ini tVar i abl es) 


procedure  Ritebox; 


( #******•******■***#•****■»■»■*■»■»*****■»*******♦-»■***#■»-»*#**■»##**#** 


* 

PROCEDURE 

RITEBOX 

* 

* 

SUPPORTS  PROGRAM 

CTOUCH. PAS 

*• 

« 

LOCAL  VARIABLES 

NONE 

* 

• 

GLOBAL  VARIABLES 

CHATOK,  ALTERNATIVE 

m 

* 

• 

ARRAYS  USED 

NONE 

* 

» 

FILES  ACCESSED 

NONE 

* 

» 

EXTERNAL  CALLS 

BAS I CBOX 

* 

• 

EXTERNAL  FILTERS 

FILTER1 .LIB 

» 

* 

CALLED  FROM 

WEEDHOPPER  _  MENU 

* 

« 

PURPOSE 

SETS  UP  THE  INITIAL 

ODOMETER 

* 

* 

SCREEN  AND  WRITES 

* 

• 

PRELIMINARY  DATA  TO 

SCREEN. 

* 

********************************************************** ) 


ChatDK  ; =  False; 


beqin  CRiteooxJ 
clrscr ; 
mi ndow (1.1,78,25); 

Clrscr;  basi cbox ( 1 , i , 78, 22) ; 

port  C $03a91 :  *  S-f  and  1; 

GotoXY (2.23) ;  clreoi;  GotoXY ( 28 , 23 ) ; 

cl  real ; 

it  alternative  =  4  then 

beg i  n 

GotoX  Y  ( 28 , 23 )  ;  Writet  Alternative  Development 
GotoXY (17,24) ; 

Write  ('Input  Final  Holding  Review 
Alternatives ' ) ; 

end 

el  se 


begi  n 

GotoXY  v  29 . 23  •  ;  Write1  Criteria  <_evei  it  £ntrv 
GotoXY (2,24) ; 

Write('  Major  Sub  Criteria  Tertiary  Criteria 
Final  Holdina  . 

Review  Criteria  ); 

end; 

gotoXY (2,25) ;  wr i te ( ’ F 1 =Hel p  F2=CHATTERB0X 

F3=pr obi em  ) ; 

gotoXY (37.25) ;  write( 'Explanation  F10=Quit>; 
gotoxy  (  30,  1  )  ;  te:<  tbackgr  ound  (red  )  ; 

te>:  tool  or  /ell  ow  >  : 

ante1.  TOUCHSTONE  : 

tex  t background (blue)  ; 
textcol or (whi  te)  ; 
end ;  {Ri tebox } 


procedure  MainCriteria 


* 

PROCEDURE 

MAINCRITERIA 

♦ 

* 

SUPPORTS  PROGRAM 

C TOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

SHORTNAME,  LQNGNAME 

* 

• 

GLOBAL  VARIABLES 

PT1,  PT2 .  PT3 ,  PT4 , 

PROBLEMFLAG, 

* 

* 

QUITFLAG , 

* 

» 

CRITERIA.  3UI7FLG1, 

NUM.  SECNUM, 

* 

» 

QUITFL32. 

* 

* 

THRNUM ,  3UITFLG3,  INPUTSTRING, 

* 

* 

MOVEX,  STOPPROG, 

* 

* 

CRITLIMIT,  NEWCR ITLIMIT,  COUNTED, 

* 

« 

L,  M,  N,  A 

* 

» 

ARRAYS  USED 

NONE 

* 

* 

FILES  ACCESSED 

KRITERI AFILE 

* 

* 

EXTERNAL  CALLS 

GETTHEKEYS 

* 

• 

EXTERNAL  FILTERS 

FILTER9. LIB 

* 

* 

CALLED  FROM 

MAINCRITERIA 

* 

» 

PURPOSE 

ALLOWS  THE  COMMITTE 

MEMBER  TO  ADD 

* 

* 

ALTERNATIVES/CRITERIA  TO  A  NEW  OR 

* 

* 

EXISTING  FILE. 

* 

*#*»t#*#*#****»***##t******»4******«***»»#*»*»*»**-»»#»»**-*  ) 

var 

SHORTNAME  :  STR INGC12H: 

L3NGNAME  :  3TRINGC583; 

begin  CMai nCri ter i a! 

ptl  i*  2;  pt2  :  =*  2;  pt3  s*  77;  pt4  :  =  21; 
window (ptl ,pt2,pt3,pt4)  ; 
i f  problem^ 1 ag  < >  a '  then 
begin  (If  statement} 

seek  \  kr  i  ter  iifue  ,  recount- 1 ;  ; 
read  ikri  ceriati  ie.cn  teria)  ; 
end;  (If  statement} 
repeat 

it  (QuxtFlaq  =  0)  and  (Droblemflaq  <  e-/  then 

begin  (If  statement  within  Repeat} 
case  ProblemFlag  of 

a’  :  begin  (A  statement  within  Case} 

if  cr i ter i a . f 1 ag 1  *  0  then 
GotoXY (1,1) 
e  1  se 

3ctoXY  < 1 .whereY)  ; 

Wr l t  e  v Num ,  .  ) ;  Num  : =  Num  +  1 ; 

movex  :=  wherex; 

QuitFlgl  :=  QuitFlgl  +  1; 

Criteria.Flagl  :=  Cr l ter i a . F 1 ag 1  +  1; 
end;  (A  statement  within  Case} 

b  :  begin  CB  statement  witnin  Case. 

Goto,<Y  (4,wherev<  ;  Wr;te(SecNum,  .  ); 

movex  :=  wherex; 

SecNum  ;=  Sues < SecNum ) ; 

QuitFlgC  ;=  CuitFlgC  +  1; 


Cri  teri  a.  FI  ag2  :=  Cr  1  teri  a.  FI  ag2  -*-1; 
end;  CB  statement  within  Case] 

'c'  :  begin  -CC  statement  within  Case] 

GotoXY <8, wherev) ;  Write (ThrNum,  '>  .  ): 

movex  : =  wherex ; 

ThrNum  :=  ThrNum  +  1; 

QuitFlg3  :=  QuitFlg3  +  1; 

Cr i ter i a. FI ag3  :=  Cri ter i a. Fi ag3  +  1; 
and;  CC  statement  within  Case]- 

end;  CCase  Statement] 
repeat 

getthekeys ( Inputstring , 10) ; 
shortName  ;=  inputstring; 
gotoxy (movex , wherey)  ; 

until  <ord (shortnameC 1 1 )  >  32)  or  (stopprog) ; 

a  :  =  2; 

criteria.critname  :=  shortNameC 1 1 ; 
while  (shortnameC a]  <>  chr(13))  and  (a<ll)  dc 
begin 

cri teri a. cri tname  :=  concat (cr i ter i a . cr i tname , 

shortnameCa]) ; 

a  ;  =  a  +  1 ; 
end; 

wri teln; 

if  not  StopProq  and  not  (QuitFlqZ  >  CritLimit  +  1,'  and 
not  (QuitFlg3  >  CritLimit  +  1)  and 
not  (QuitFlgi  >  NewCritLimit  •+■  1)  then 
begin  CLoad  file] 

GotoXY (2, wherey) ;  Wri te ( ’ Def i ne;  ’>; 

movex  s=  wherex; 

repeat 

getthekeys ( Inputstri ng ,58) ; 
longName  ;=  inputstring; 
got ox y ( movex , wherev  >  ; 

until  (ora ( longnameC i ] )  >  32)  or  istapprog) : 

a  :  =  2; 

cri t eri a. cri tdef  ;=  longNameCll; 
while  (longnameC a]  >  chr (13) ;  and 
(a<counted+l)  do 
begin 

cri ter i a. cri tdef  := 

concat (criteria.critdef ,1 ongnameC  a  1 > ; 
a  ;  =  a  +  1 ; 
end ; 

wr l teln ; 

1  ;=  Cr  l  ten  a.  Fi  ag  1  *  100; 
m  ;=  Cr i ter i a. FI ag2  *  10; 
n  : =  Cri teri a. FI ag3; 

Cri ter i a. CheckPoi nt  ;=  1  +  m  +•  n; 

seek (kriteriafile,fii esi ze(kriteriafile) ) ; 

Wr  l  te  (Kri  teria-f  lie.  2  r  i  ter  i  a /  ; 
end;  (Load  fileJ 

end;  Clf  statement  wicnin  repeat] 
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until  StcpProg  or  (QuitFlgi  >  NewCri tLi mi t )  or 
<QuitFlg2  >  CritLimit)  or 
<QuitFlg3  >  CritLimit); 
end;  CMai nCri ter i al 


procedure  Window3; 

( *■»*■»*•»*•«■****  it-*#**-*#**-##**###-**-**#-##-**#-#*-###*##*-**-**#-*-*- ***+*- 


* 

PROCEDURE 

WINDDW3 

* 

•* 

SUPPORTS  PROGRAM 

CTOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

CHM 

* 

* 

GLOBAL  VARIABLES 

PROBLEMFLAG,  RECOUNT,  Z,  CRITERIA 

f* 

* 

NUM,  SECNUM , 

* 

* 

THRNUM ,  OUITFLGl ,  QUITFLG2 , 

* 

* 

QUITFLG3,  STOPGAP, 

* 

* 

CHKFLAG1,  CHKFLAG2,  CHKFLAG3 , 

* 

* 

SHGWME,  QUITFLAG, 

* 

* 

INPUTSTRING,  FLAGCHOICE,  NAMES, 

-M- 

* 

LIMMIT 

* 

* 

ARRAYS  USED 

NONE 

* 

* 

FILES  ACCESSED 

KRITERIAFILE 

* 

* 

EXTERNAL  CALLS 

ODOMETER,  FINALCHOICE,  LOADARRAY, 

*• 

* 

NEWWRITE,  CHATRCHECK, 

* 

* 

RANTOCOMPLET I ON ,  MA I NCR I TER I A , 

* 

* 

GETTHEKEYS 

* 

* 

EXTERNAL  FILTERS 

r ILTER6. LIB,  FILTER9. LIB 

* 

* 

CALLED  FROM 

WEEDHOPPER  MENU 

* 

* 

PURPOSE 

LISTS  ALTERNATIVES/CRITERIA  WHEN 

*- 

* 

THE  USER  HAS  PREVIOUSLY  INPUT 

* 

* 

DATA  BUT  DOES  NOT  WANT  TO  REVIEW 

* 

* 

THAT  DATA. 

* 

##«##****#*****#*####-»**######4#******-»****#***##**#*****#  ) 

var 

CHM  :  CHAR; 
begin  CWindow3! 

cirscr;  Odometer;  chatrcheck; 

recount  :=  0;  reset (kriteriafile)  ; 

z  ;=  f i 1 es; ze (kri ter i af  i  1  e)  ; 

if  (problemflag  >  'a')  and  (problemflag  <  e)  then 
begin  Clf  Statement! 

'eoeat  [Main  Repeat  Module! 
seek ( kri ter lati ie, recount )  ; 
read (Kri teriafi le.cri ter l a )  ; 
repeat  {Embedded  Repeat  Module! 

*  * • #»»#*****###****#**#**##**##*****+##********#*#**#* 

•  Writing  Major  Criteria,  (X000),  previously  entered  * 

•  er.  p-  pc  1  emf  1  ac  =  a.  FrcplemFlao  =  b  for  this  * 

•  n/iL..e  to  be  activated,  and  allows  subcriteria  to 

•  .»  er  ■  '  er  ed  ,  t  X  X00 )  ,  X's  being  integers.  * 

. »•*■*■* 


case  Criteria,  flagl  of 

1..100  :  begin  Cinside  case  statement  f 1 agl } 
if  <Cr i ter i a. f 1 ag2  =  0)  and 
(Cri teri a. FI ag3  =  0)  then 
begin  CCase  If  Statement!- 

if  cri teria. f lagl  =  1  then 
GotoXY (1,1) 
el  se 

GotoXY  < 1 , whereY) ; 

Write (Num, ' .  ‘ )  ; 

ThrNum  :=  1;  Secnum  :=  1; 

Num  : =  Num  +  1 ; 

QuitFlg2  :  =  1; 

QuitFIgi  :=*  QuitFlgl  +  1; 
end;  {Case  If  Statement} 

(****#**-»**•»**#********■»*■»•******■«■*#****•«■*#■******•****** 

*  Writing  Sub  Criteria,  (XX00) ,  previously  entered 

*  when  problemf l«*g  =  b.  ProblemFlag  =  c  for  this  * 

*  module  to  be  activated,  and  allows  tertiary  * 

*  criteria  to  be  entered,  (XXX0) ,  X's  being  integers. * 
#*#****■»**##*•»*****#**#****#***###*#**#*#####***«•**#* ) 

case  Cri teria. flag2  of 

1..100  :  begin  {inside  case  statement  flaa2! 
if  (Criteria. flaq3  =  0)  then 
begin  {Case  If  Statement! 
got oX Y ( 4 , wherey ) ; 

Write (Sec Num, ' .  '); 

SecNum  :=  Succ (SecNum) ; 

QuitFlg2  :=  QuitFlg2  +  1; 

ThrNum  : =  1 ; 

if  QuitFlg2  =  CritLimit  then 
StopGao  :=  False; 

QuitFlg3  : =  1; 
end;  {Case  If  Statement! 


*  Writing  Tertiary  Criteria,  <XXX0),  previously  * 

*  entered  when  problemf lag  *  c.  ProblemFlag  =  d  * 

*  for  this  module  to  be  activated,  and  allows  * 

*  tertiary  criteria  to  be  entered,  (XXXX)  ,  X's  * 

*  being  integers.  * 


case  Cri teri a. f 1 ag3  of 

1..100  :  begin  {Case  If  Statement! 

gotoXY (8, wherey) ; 

Wri te (ThrNum .  '); 

ThrNum  ;=  ThrNum  +  1; 
QuitFIg3  :=  QuitFlg3  +  1; 
if  QuitFig3  =  CritLimit  then 
StopGap  ;=  False; 
end;  {Case  If  Statement! 
end;  CCase  Statement  flaq3! 
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end;  {inside  case  statement  flag2i 

end;  {Case  Statement  flag2> 

wri teln  (Cri ter ia. Cr i tName,  ' : 

'  ,  Cri  teri  a.  Cr i  tDe-f )  ; 
end;  {inside  case  statement  flagl! 

end;  {Case  Statement  flagl} 

if  (ProblemFlag  =  'c')  and 

(Cri teria. Flagl  =  ChkFlagl)  and 
(Cri teri a. FI ag2  >  ChkFlaq2>  and 
(Cri  teri  a.  FI  ag3  =  0)  and 
(ChkFlag3  *  0)  then 
Showme  :=  1; 

ChkFlagl  s=  Cri teria. FI agl ; 

ChkFlag2  :  =  Cr i teri a. Flag2; 

ChkFlag3  :=  Cri teri a. FI ag3; 
recount  :=  recount  +  1; 
i-f  recount  <  2  then 

read (Kriteriaf i  1  e ,cr i ter i a) ; 
i-f  (ProblemFlag  =  'c')  then 
begin  {C  I-f  Statement} 

i-f  (Cri  ter i a.  FI  ag2  >  ChkFl aq2)  and 
(Cri teri a. FI ag3  =  0)  and 
(ChkFlag2  >  0>  and 
(ChkFlag3  *  0)  then 
Showme  : =  1 s 

i-f  (Cri  ter i a.  FI ag2  >  ChkFl ag2)  and 
(Cri teria. Flag3  =  0)  and 
(ChkFlag3  >  0)  then 
Showme  s-  1; 

if  (Cri teri a. FI ag2  =  ChkFlag2>  and 
(Cri teri a. FI ag3  >  0)  and 
(ChkFlag3  =  0)  then 
Showme  : =  0; 

if  (Cri teria. Flag2  =  ChkFlaq2)  and 
(Cri teri a. Flag3  =  0)  ana 
(ChkFlag3  >  0)  then 
Showme  : =  1 ; 
end;  {C  If  Statement> 
until  (Cri teria. Flagl  >  Chkflagl)  or 
(Showme  =  1 )  or 
(recount  =  z ) ; 

if  (QuitFlg2  >  CritLimit)  or 
(QuitFlg3  >  CritLimit)  then 
QuitFlag  : =  1; 
iiai nCri  teria; 

Showme  : =  0;  QuitFlgl  :  =  1; 

QuitFlg2  : =  1; 

QuitFlg3  :=  1;  GuitFlag  :=  0; 
until  (recount  =  z); 
end  {If  Statement! 

el  se 

if  probiemflag  'e'  then 
begin  {If/Else  Statement!- 

while  not  EOF ( kr i ter i af i 1 e)  do 
begin  {While  Statement! 


read  (Kriteriaf ile,cri teria)  ; 
case  Cri teri a. flagl  of 

1..100  :  begin  {inside  case 

statement  flagl! 
if  (Cri teri a. f 1 ag2  =  0)  and 
(Criteria. Flag3  =  0)  then 
begin  {Case  If  Statement! 
if  cri teri a. f 1 agl  =  1  then 
GotoXY (1.1) 
el  se 

GotoXY  < 1 , whereY) ; 

Write (Num, ' .  ' ) ; 

Num  : =  Num  +  1 ; 

QuitFlgl  :=  QuitFlgl  +  1; 
Secnum  : =  1 ; 

end;  {Case  If  Statement! 
case  Cri teri a. f lag2  of 

1..100  :  begin  {inside  case 

statement  flag2> 
if  (Cri teria. flag3  =  0)  then 
begin  {Case  If  Statement! 
gotoXY (4,wherey)  ; 

Wri te (SecNum, ' . 

SecNum  :=  Succ (SecNum) ; 
QuitFlg2  :=  QuitFIg2  +  1: 
ThrNum  : =  1 ; 

end;  {Case  If  Statement! 
case  Cri teria. flag3  of 

1..100  :  begin  {Case  If  Statement! 

gotoXY  <8,wherey) ; 

Wri te (ThrNum, ') . 

ThrNum  : =  ThrNum  +  1 ; 
QuitFlg3  :=  QuitFlq3  +  1; 
end;  {Case  If  Statement! 
end;  [Case  Statement  fiaq3! 

end;  {inside  case  statement 

f 1 ag2! 

end;  {Case  Statement  flag2! 

Wri tel n (Cri teri a. Cri tName ,  '  : 

' ,Cri ter i a. Cri tDef ) ; 
end;  {inside  case 

statement  flagl! 
end;  {Case  Statement  flagl! 
if  QuitFlgl  =  NewCritLimit  then 
SfcoDGap  :=  False; 

ChkFlagl  :=  Cr l teri a. FI ag 1 ; 
end;  {While  Statement! 

if  not  (QuitFlgl  >  NewCr i tLi mi t )  then 
Mai ncri teria; 

end;  {If/Else  Statement! 

ci ase (kriteriafiie) ; 


if  problemf lag  <>  ‘z‘  then 
begin 

gotoXY (1,19) ; 

write ('Are  you  finished  with  this  level  of 
cri teri a,  ' , 

'or  will  you  be  entering  more?'); 
gotoXY ( 1 *20) ; 

w rite( 'Enter  ''F''  for  Finished,  or  ''M''  for 
More:  ' ) ; 

gotoxy (45,20) ; 
repeat 

getthekeys < Inputstring , 1 ) ; 
flagchoice  :=  inputstring; 
chm  :=  flagchoice; 
gotoxy (45,20) ; 
until  chm  in  C'F','M'3; 
if  (FlagChoice  =  'F')  then 
FinalChoice; 

end; 

if  problemf lag  =  'z'  then 
r  an  t  oc  omp  1  e  t  i  on ; 

LoadArray;  NewWr i te (Names , Li mmi t ) ; 

chatrcheck; 
end;  CWindow3> 


procedure  WEEDHQPPER_MENU; 


GLOBAL  VARIABLES 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 


EXTERNAL  FILTERS 

CALLED  FROM 
PURPOSE 


*  PROCEDURE  :  WEEDHOPPER_MENU  * 

*  SUPPORTS  PROGRAM  :  CTOUCH.PAS  * 

*  LOCAL  VARIABLES  :  CH,  SELECTION,  CONTINUE,  * 

*  COMPLETED,  FILECHECK,  * 

*  3H0RTNAME,  TEMPDEF I N I T I ON ,  COUNTS  * 

*  GLOBAL  VARIABLES  :  COMPLETED,  WEEDDEF ,  FILECHECK,  Y,  * 

*  X,  MARKER,  * 

*  MOVEOVER,  FILEDRIVE,  Z,  LINE;*! ARK.  * 

*  MEMBERS,  NAMESTRING,  ALTERNATIVE,  * 

*  INPUTSTRING,  PRDBNAME,  DATE,  * 

*  COUNT,  NAMES,  LIMMIT,  CHATOK  * 

*  ARRAYS  USED  :  NONE  * 

*  FILES  ACCESSED  :  ACT I VEPROBLEMF I LE ,  DATEFILE  * 

*  EXTERNAL  CALLS  :  INTROSCREEN,  GETTHEKEYS,  RITEBOX,  * 

*  CHATRCHECK,  INITVARI ABLE3 ,  « 

*  LOADARRAY,  REVIEW,  WIND0W3,  •- 

*  LOADEMUP  * 

*  EXTERNAL  FILTERS  :  FILTER2. LIB  FILTER7. LIB,  * 

*  FILTER?. LIB,  TAILEND. LIB  * 

*  CALLED  FROM  :  MAIN  BODY  OF  PROGRAM  CTOUCH.PAS  * 

*  PURPOSE  :  GIVES  THE  COMMITTEE  MEMBER  THE  * 

*  OPPORTUNITY  TO  EITHER  REVIEW  PAST  ■* 

*  ENTRIES  OR  START  NEW  ONES.  * 

***  **■*■#•#■#•■#■  a-***-*  ********  ***■**■•*•*  *•#-**•*•-*•■**•*•#•■#*-**■**#•■*■*•*•  ******** ) 


iL^LM 


»>  ..t  » ki  * .1  i 


CH,  SELECTION 

CONTINUE,  COMPLETED,  FILECHECK 

DATEFILE 

SHORTNAME 

TEMPDEF I N I T I ON 

COUNTS 


CHAR; 

BOOLEAN; 

TEXT; 

STRINGC73 ; 
STRING! 58 3 ; 
INTEGER; 


beqin  {procedure  WeedHopper  MENU) 

COMPLETED  :=  -false; 

repeat 

weeddef  :  =  -false; 

FILECHECK  :=  False; 

INTROSCREEN; 

gotoxy (18, 1) ;  write  ('COMMITTEE  MEMBER  MENU'); 
gotoxy (1,3); 

write  ('At  the  present  time,  you  are  a  member  on 
committees  ‘); 
gotoxy (1,4) ; 

write  ('discussing  the  following  problems:'); 

Y  :=  £>;  X  :  =  1;  Marker  :  =  3; 

MoveOver  :=  13; 

Assign  < Act i vePr obi emFi 1 e , cone at (FILEDRI VE,  ' : Probs. tx t ' ) >  ; 
C$1— 3 

Reset (Act i veProbl emFi 1 e) : 

C$I  +  ! 
z  ;  =  3; 

if  IOresult  =  8  then 

begin  <1/0  result! 

while  not  EOF (Acti veProbl emf i 1 e)  do 
begin  [While  not  EOF  Loop! 

LineMark  :=  False; 

Read (Acti veProbl emFi le.  Members) ; 
if  (members. member  =  namestrino)  and 
(members. choice  =  alternative)  then 
begin 

LineMark  :=  True; 
gotoXY (X , Y) ; 

Wr i te (Members. Problem) ; 
z  : =  succ  <z ) ; 
end; 

if  Y  >  13  then 

begin  Cif  Y  >  13! 
case  marker  of 

1  :  moveover  :=  25: 

2  :  moveover  : =  37 ; 

3  :  moveover  :=  49; 

end ; 

X  :=  MoveOver;  Y  :=  6; 

Marker  :=  Marker  +  1; 

end  Cif  Y  >  13! 


ei  se 


end ; 


if  LineMark  then 
Y  :=  Y  +  1; 

[While  not  EOF  Loop! 


5 


close (Acti veProblemf i  le)  ; 
if  z  =  0  then 
begin 

gotoxy  <8, 8)  ; 

write('You  are  not  currently  serving  on  a 
commi ttee ' ) ; 
del  ay (4000) ; 
completed  :  =  true; 
end; 

if  not  completed  then 
begin 

gotoxy (1,15); 

write  ('SELECTION  CHOICES:  1)  Choose  a 
problem ' ) ; 
gotoxy (46, 15) ; 
write  ('2)  Exit  to  DOS'); 
gotoxy  (22,16) ; 

write  ('SELECTION:  *');  gotoxy (34 , 16; 

repeat 

read (kbd ,CH) ; 
until  CH  in  C ' 1  * , '2' 3; 
write (CH) ; 
delay < 1000) ; 
end; 

if  CH  =  ' 1 '  then 

beqin  ([select  choice! 
counts  :=  0; 
repeat 

GotoXY (22, 16) ; 

Wri te ( 'Choose  the  problem:  '); 

repeat 

getthekeys ( Inputstri ng , 7)  ; 
shortName  :=  inputstring; 
gotoxy (43,16); 
until  shortnameCll  >  #32; 

(remove  spaces  from  shortname! 
a  ■  —  r». 

probname  :=  shortNameC 1 1 : 
while  (shortnameCal  <>  chr (32) )  and 
(a<8)  do 
begin 

probname  := 

concat  (probname , shortnameCal >  ; 
a  :  =  a  +  1 ; 

end;  'while  shortnameCal! 

{gets  the  date  from  a  file  DATE. TXT! 
assign (datefile, 'date.txt'); 
reset (datefile) ; 
readln(datefile,date)  ; 
close (datefile)  ; 
reset (acti veprobl emt 1 1  a) ; 
count  : =  1 ; 

while  not  EOF ( act i veprobl emf i 1 e)  do 
begin  {while  statement! 

Read ( Act l vePrcbl emFi 1 e , Members )  ; 


if  (Membars. Pr obi em  =  ProbName) 
and  (Members. Member  =  NameString) 
and  (member s. choice  =  alternative) 
then 

begin 

filecheck  :=  true; 
members. datel ine  ; =  date; 
tempdef i ni t i on  := 
members . definition: 
end; 

seek ( ac tivepr obi emf i 1 e , count- 1 ) ; 
write (acti veprobl emf i 1 e , members) ; 
count  s  =  succ (count); 
end;  {while  statement! 

close (Acti veProbl emf i le) ; 
counts  s *  succ (counts) ; 
until  (filecheck)  or  (counts  >  2); 
if  not  (filecheck)  then 
begin 

clrscr;  gotoXY(9,8); 

Wri teln ( ' I ' ' m  sorry  but  you  don't 
seem  to  be  typing'); 
gotoXY  (9,9); 

Write('in  a  problem  that  we  have  on 
file.'); 
del  ay (4000)  ; 
completed  :=  true; 
end  {If  Statement! 

else 

begin 
clrscr ; 
gotoxy (10,3) ; 

WeedDef  ;=  true; 

write! 'fl  short,  one  iine  detini ton  of 
' ,probname, 

'  f ol lows.  ' )  ; 

gotoXY  (2,6);  wr i tel n (TempDe+ i ni t i an ) ; 
gotoxv (10,8) : 

write ('If  at  any  time  you  wish  to  see  a 
more  in  ' ) ; 
gotoxy (10,10) ; 

write( 'depth  explanation  of  the 
problem,  press  F3 ' )  ; 

gotoxy (15,16)  ; 

write ('Press  Return  to  continue 
getthekeys ( Inputstring, 1 )  ; 

RITEBOX; 

CHATOK  ;=  true; 

CHATRCHECK; 

INITVARIABLES; 

if  (CHA  =  #89)  and  (STARTUP)  then 
begin 

LQADARRAY; 

REVIEW  (NAMES, LIMMIT)  ; 
end  Cif  CHA=#S9) 
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WIND0W3; 

end;  Clf/Eise! 
end  Gif  CH=  1  > 
ei  se 

COMPLETED  s*  true; 
end  Gif  IOresult  =  03 
el  se 

begin 

clrscr;  gotoxy  (13,8); 

write  ('File  PROBS. TXT  not  found  on  drive 
' , FILEDRIVE) ; 

sound (800);  delay (500) ; nosound; 

close(Acti veProblemf ile) ; 
del  ay (2000) ;  COMPLETED  :=  true; 

end;  (else! 
until  COMPLETED; 

1 oademup ; 

end;  {procedure  WeedHopper _MENU3 

begin  CMain  Program! 

INVOCATOR  :=  ’  W '  ; 

GETFILENAMES; 

assign  (TEMPFILE, ’ DRIVEFIL. TMP ' ) ; 

1-3 

reset  (TEMPFILE) ; 

G$I+! 

if  IOresult  *  0  then 
erase  (TEMPFILE) ; 

if  (AUTHORIZED)  and  ( Invocator  =  'W')  then  begin 
INTROSCREEN; 
gotoxy (10,8)  ; 

write < 'ACCESS  APPROVED  -  WELCOME  TO  TOUCHSTONE!  > ; 
del  ay (3000) ; 

ALTERNATECHOICE; 

(*******  call  touchstone  programs  #*■**+*+) 
if  INVOCATOR  =  W'  then 
WEEDHOPPER_MENU ; 

( **********************************»***** ) 
INTROSCREEN; 
gotoxy  (4,8) ; 

write  ('THANK  YOU  FOR  USING  TOUCHSTONE  -  HAVE  A  NICE 
DAY !  ' ) ; 
delay  (2000); 
end;  Gif  AUTHORIZED) 

1 oadthef i 1 es; 
end.  CMain  Program! 


program  FLAGSET v INPUT, OUTPUT) 


*  PROGRAM 

*  ARRAYS  USED 

*  FILES  ACCESSED 

» 

*  EXTERNAL  CALLS 

*  EXTERNAL  FILTERS 

*  CALLED  FROM 

*  PURPOSE 

* 

* 

* 

* 

* 

* 

* 


FLAGSET. PAS  * 
CRITARRAY  * 
TEMPFLAGSET,  ACTIVEPROBL EMF ILE ,  * 
KRITERIAFILE  «• 
BUBBLESORT,  CRITSORT  * 
FILTER6. LIB  * 
TS. BAT  * 
MERGES  THE  ALTERNATIVES/CRITERIA  * 
OF  ALL  MEMBERS  WHEN  CERTAIN  * 


VARIABLES  ARE  MATCHED.  USED  AS  A  * 
COM  FILE  AT  THE  LAST  OF  THE  BATCH  * 
FILE  TS. BAT.  NO  INTERACTION  FROM  * 
THE  USER  IS  REQUIRED.  THE  LAST  * 
ACT  OF  THIS  PROGRAM  IS  TO  SET  THE  * 
SCREEN  BACK  TO  NORMAL.  * 


***-*****•**•#■•#■•*■-*••*•#■*■•*■  *****■*■»■*  ■*■**■  *-*■*■#■*#■■*•*  •*■*••*■**■***•#••*•*•*■11- •**••**•*■*  ■*  * 


type 

STRINGS 
STRINGS 
STRING 10 
STRING 12 


STRINGC3D ; 
STRING C33 ; 
STRINGC 103 
STRINGC 123 


PROBREC 


record 

CHECKSTATE 
CHECKCHANGE 
CHOICE 
PROBLEM 
NUMMEMS 
MEMBER 
DEFINITION 
DATELINE 
end ; 


CHAR; 

CHAR; 

CHAR; 

STRINGC 7 3 ; 
INTE3ER; 

STR I NG3 ; 
STRINGC 58 3 ; 
STRING12: 


CRIREC 


record 

FLAG1 

FLAG2 

FLAGS 

CHECKPOINT 
STATFLAG 
CRITNAME 
CRITDEF 
end ; 


INTEGER; 

INTEGER; 

INTEGER: 

INTEGER; 

CHAR; 

STRING 10; 
STRINGC583 ; 


CR I TARRAY 
PRGBARRAY 


=  arr ay C 1 . . 1 50 3  of  CRIREC; 

=  arravC 1 . . 2003  of  PROBREC: 


FLAGGED,  FILEDRIVE. 
FRCBLEMFLAG.  CHANGEREC 


CHAR 


STARTMERGE,  QNCECOUNTED , 

ANONYMOUS,  CHANGEFLAG  :  BOOLEAN; 


PT1,  L,  COUNT, 
PT2,  M,  LIMID, 
PT3 ,  N,  TRACK 1 
PT4,  Z,  LIMMIT 


FLAGCOUNT ,  I 
KEEP TOGETHER 
DOUBLECOUNTED 
COUNTED,  FLAGEND 


INTEGER 

INTEGER 

INTEGER 

INTEGER 


ALTERNATIVE 
NAMESTRING 
PROBNAME 
NEWSTRING,  DATE 


STRINGC 1 I; 
STRING3; 
STRINGC 7] ; 
STRING12: 


NAMES 

PROBS 


CRITARRAY; 

PROBARRAY; 


CRITERIA 

MEMBERS 


CRIREC; 

PROBREC; 


KRI~ERIAFILE 
ACT I vEPROBLEMF I LE 


:  file  at  CRIREC; 

:  rile  or  PROBREC; 


{*IFILTER6.LIB> 


procedure  PutumTogether ; 


*  PROCEDURE 

*  SUPPORTS  PROGRAM 

*  LOCAL  VARIABLES 

*  GLOBAL  VARIABLES 

•* 

* 

*  ARRAYS  USED 

*  FILES  ACCESSED 

*  EXTERNAL  CALLS 

*  EXTERNAL  FILTERS 

*  CALLED  FROM 

*  PURPOSE 

* 


PUTEMTOGETHER  « 
FLAGSET. PAS  * 
NONE  ^ 
NEWSTRING,  PROBNAME,  ALTERNATIVE.  « 
MEMBERS,  FILEDRIVE,  COUNTED,  « 
LIMMIT,  KEEP TOGETHER  * 
CRITARRAY  * 
KRITERI AFILE  « 
NONE  « 
NONE  « 
FLAGSET^ER  < 
LOADS  AN  ARRAY  WITH  ALL  FILES  < 
HAVE  THE  SAME  PROBLEM  NAME.  * 


*#*#**»**#**##♦***##*****#***#*#*#***»#******♦**»**♦#*#*♦# ) 


begin  IPutEmToqetherl 

MewStrinq  :=  Probr.aroe+altsrnative+  '  .  '  -rmember  s .  member- ; 

Assign  (kri  ter  i  aFi  1  e  .  cone  at  F ILEDR I VE  .  '  .newstrinc)  !  ; 
reset  (Kri  teria-file)  ; 


while  not  EOF  (Kri  ter i aFi  1  e)  do 

begin  IWhile  Statement} 

Read (Kri ter i aFi 1 e , Names C Counted  3 ) ; 

namesCcountsd ] . checkpoi nt  := 
namesCcounted 1 . checkpoi  nt  +  Keep Toqether ; 

Counted  :=  Counted  +  1; 

end;  (While  Statement 3- 

Limmit  3=  Counted; 

close (Kri ter i aFi 1 e) ; 

KeepTogether  :=  KeepTogether  +  1; 

and;  Cput eratogetherl 


procedure  A1 1 Toqether ( var  Names  i  Cr it Array; 
i nteger ) ; 


Li  mm 1 1 


*  PROCEDURE 

*  SUPPORTS  PROGRAM 

*  LOCAL  VARIABLES 

*  GLOBAL  VARIABLES 


» 

* 

* 

# 

# 


* 

* 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


# 

* 

* 

-* 

* 

* 


**-*•*•****##**#■**•*##■•*■*■■#■*-*• 


ALLTOGETHER 
FLAGSET. PAS 
NONE 

COUNTED,  NAMES,  LIMMIT, 
DOUBLECCUNTED ,  PROBLEMFLAG, 
NEWSTRING,  FILEDRI VE,  PROBNAME, 
ALTERNATIVE,  ONCECOUNTED 
CRITARRAY 
KRITERIAFILE 
BUBBLESORT.  CRITSCRT 
FILTERS. LIB 
FLAGSETTER 

THIS  PROCEDURE  RELOADS  EACH 
USER’S  FILE  WITH  ALL  OF  THE 
CRITERIA  THAT  EACH  USER  INITIALLY  * 
ENTERED.  EACH  USER  THEN  WILL  «- 

HAVE  THE  SAME  IDENTICAL  FILE  TO 
DELETE.  CHANGE  OR  ADD  TO  IN 
SELECTING  THE  FINAL  CRITERIA.  * 

#******■*•**■*#■***•*•-*#-**■***•***•*■*#****■*  *  ! 


begin  Cal I  together 1 
l t  OnceCaunted  tnen 
begin 


bubb 1 esort (names , Li mmi t ) ; 


counted  :=  1;  douol ecounted  :=  i; 

repeat 

it  C Names C counted  3 . Cri tname  = 

Names [counted  + 1 ] . cr i tname )  and 
(namesEcounted]. critdef  = 
names [ counted  +  13.critaet)  then 
begin 

NamesLCountsdJ.Flagi  := 
daub 1 ecounted  :=  aoubi ecounted  +  1; 
end; 

counted  :=  counted  +  1; 
until  counted  -  Limmit; 

Cr i tsort (names , Li mmi t ) ; 
end; 

counted  :=  1; 

NewString  :=  Probname+al ter nat i ve+ ' .  +member s . member 

Assign (kriteriaFi ie,concat (FILEDRIVE. * : ' ,newstring; ) 

rewri te (Kri teriati le) ; 

repeat 


namesCcounted  1 .  statf  1  ag  :=  problem-flag; 

l-f  namesCcounted  1 .  -f  1  ag  1  >  0  then 

begin 

Ar i te <  kr  i ter:af i 1 e , NamesC  Counted  1 )  ; 
end ; 

counted  :=  counted  +  1; 
until  counted  =  Limmit; 
cl ose  (kr i  teri a-f  i  1  e)  ; 

OnceCcunted  :=  False; 


Cal i together! 


LI>UI 


procedure  FlagSetter; 

( #*****4**#*************#*###*##****#*****##**#**#4***»**#*+ 


# 

PROCEDURE 

FLAGSETTER 

* 

* 

SUPPORTS  PROGRAM 

FLAGSET. PAS 

* 

* 

LOCAL  VARIABLES 

PROBLEMHOLD 

* 

* 

GLOBAL  VARIABLES 

FI LEDRIVE,  ALTERNATIVE, 

-* 

* 

NAMESTRING,  PROBNAME,  COUNTED, 

* 

* 

FLAGEND,  KEEPTOGETHER,  3TARTMERGE 

«  * 

* 

COUNT,  CHANGEFLAG,  FLAGCOUNT , 

* 

* 

ONCECOUNTED,  MEMBERS,  FLAGGED, 

* 

* 

PROBLEMFLAG 

* 

* 

ARRAYS  USED 

NONE 

* 

* 

FILES  ACCESSED 

TEMPFLAGSET,  ACT I VEPROBLEMF I LE 

* 

* 

EXTERNAL  CALLS 

PUTEMTOGETHER,  ALLTOGETHER 

* 

* 

EXTERNAL  FILTERS 

NONE 

* 

* 

CALLED  FROM 

MAIN  BODY  OF  PROGRAM  FLAGSET. PAS 

#■ 

* 

PURPOSE 

THIS  PROCEDURE  SETS  THE  FLAGS  SO 

* 

* 

THAT  THE  USER  CAN  TELL  WHERE  HE 

* 

* 

IS  PERSONALLY  AT  IN  THE  SELECTION 

* 

* 

PROCESS. 

var 

PROBLEMHOLD  :  CHAR: 

TEMPFLAGSET  :  TEXT: 

begin  IFlagSetterJ 

assign  < tempf lagset , 'flag set. txt  ’  > : 
reset ( tempf 1 agset )  : 

read In ( tempf 1 agset , f i ledrive) ; 
readl n ( tempf 1 aqset . ai ternat  i  ve)  ; 
r eadl n (tempf 1 agset , namestring ) ; 
readln (tempf lagset ,probname> ; 
close (tempf laqset) ; 

erase ( tempf 1 agset ) ; 

Assi gn ( Act i veProb 1 emF i I e , cone at ( F I LEDRIVE , ' : ? r obs . c 
reset ( Acti vePrabl emFi 1 e)  ; 

counted  : =  1;  count  :=  3: 

f I aqcount  : =  t : 

flagend  :=  1;  Startmerqe  :=  Raise: 

OnceCounted  :=  True; 

KeepTogether  ;=  1;  ChanqeFlaq  :=  True: 
while  not  EDF  ( act  i  veprob  l  emf  i  1  e  )  dc 
•  begin  Cwhiie  otateine  it 


r  ead  '  Ac  1 1  v  eF  r  r>b  1  e  mf  i  ■  . 
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if  (members. Problem  =  ProbName)  and 

(members. choice  *  alternative)  then 

begin 

if  members. member  -  namestring  then 
Flagged  s  =  members. checkstate; 

flagend  : *  flagend  +  1; 
end; 

count  s*  count  +1; 
end;  {while  statement! 
close (Acti veProblemFi le) ; 
flagcount  :=  1; 

Check  to  see  if  the  members  are  at  the  same  stage 

reset (acti vepr obi emfi le)  ; 

while  not  EOF (Acti veProblemFi le)  do 

begin  {While  Statement! 

read (Acti veProblemFi le, members) ; 

if  (members. checkchange  =  'C')  and 
(members. problem  =  probname)  and 
(members. choice  =  alternative)  then 
changeflag  : =  false; 

if  (members. Checkstate  =  Flagged)  and 
(members. probl em  =  probname)  and 
(members. choi ce  =  alternative)  then 
Flagcount  :=  Flagcount  +  1; 

end;  {while  statement! 

close (Acti veProblemFi 1 e) ; 

reset (acti vepr obi emf i 1 e) ; 

if  FlagCount  =  flagend  then 

begin  {If  Statement! 

while  not  EOF (Act i veProbl emFi 1 e)  do 

begin  {While  Statement! 

read (Acti veProbl emFi le, members) ; 


if  (members. Problem  =  ProbName)  and 
(members. choice  =  alternative)  then 

begin  {Embedded  If  Statement 3- 

case  members. CheckState  of 

'h#  :  begin 

PutEmTogether ; 
Startmerge  :=  True; 
members. CheckState 
s m  i'; 

problemflag  :=  'i'; 
end; 

* j '  :  begin 

PutEmTogether ; 
Startmerge  :=*  True; 
if  changeflag  then 
begin 

if  members. choice 
=  '  A  '  then 
begin 

members. CheckState 
:  =  '  z  ' : 

problemflag  : =  's'; 

end 

else 

begin 

members. CheckState 
:=*  'b  ' ; 

problemflag  :=  'b'; 
end; 

end 

else 

begin 

members. CheckState 
*  'i  ' ; 

problemflag  :=  'i'; 
end; 

end; 

'  k  '  ;  begin 

PutEmTogether ; 
Startmerge  : *  True; 
members. CheckState 
:*  '1  ' ; 

problemflag  :=  '1'; 
end; 

'm'  ;  begin 

PutEmTogether ; 
Startmerge  :=  True; 
if  changeflag  then 
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begin 

member s . Chec k St at e 
: =  'c  ' ; 

problem-flag  :=  'c'; 
end 
else 

begin 

members. CheckState 

.  —  '  1  ' . 

•  *■  *1 

problem-flag  :  ■  'l'j 
end; 

end; 

*n'  :  begin 

PutEmTogether ; 
Startmerge  : =  True; 
members. CheckState 

*=  'o'; 

problem-flag  :  =  'o'; 
end; 

'p'  :  begin 

Put EmT oget her ; 
Startmerge  : =  True; 

i-f  change-flag  then 
begin 

members. CheckState 
**  ' ; 

problem-flag  x-  'z'; 
end 
else 

begin 

members. CheckState 
s»  'o'; 

problem-flag  x*  'o'; 
and; 

end; 


end;  -CCase  Statements 
end;  (while  statement! 
end:  (Embedded  If  Statement! 

lose <acti veproblemf i le) ; 
f  Startmerge  then 

begin  {If  startmerge  Statement! 

Count  : =  1 ; 


reset  < act i veproblemf i 1 e) 


while  not  EOF (Acti veProblemFi le)  do 


begin  {While  Statements 

read (Acti veProblemFi le, members) ; 

if  (members. Problem  -  ProbName)  and 
(members. choice  -  alternative)  then 
begin 

A1 1 Together ( Names , Li mmi t )  ; 
members. CheckState  :=  problem-flag; 
end; 

seek (acti veproblemf ile, count-1)  ; 
write (acti vepr obi emf ile, members) ; 
count  i*  succ (count); 

end;  {while  statement! 

close (acti vepr obi emf ile) ; 

end;  <If  startmerge  Statement! 

end;  {if  statement! 


end;  {FlagSetter! 


begin  {main  program ! 
f lag setter ; 

(*  Returns  the  screen  to  normal  text mode  *) 
textbackground (black) ; 
textcolor (white) ; 
clrscr ; 

(*  Resets  the  border  to  black  *) 
port  C*03d9! :  =  -4ff  and  0; 

end.  {main  program! 


( ********************************************************** ) 
FILE  s  FILTER1 . LIB  <192  lines) 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 86 
PURPOSE  s  Procedure  library  for  TOUCHSTONE  (COOP 

Criteria  Filter  Program)  written  as  a  part 
of  a  thesis  for  a  Master  of  Science  in 
Computer  Systems  Management ,  Naval 
Postgraduate  School,  Monterey,  California 
CONTENTS  j  BASICBOX,  CLOSEFILE,  SETFILE 

<  a********************************************************* ) 
PROCEDURE  s  BASICBOX 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 86 

Based  on  a  program  created  by  Mark  Hayes 
PURPOSE  s  Draws  a  box  as  specified  by  the  input 
variables 

PARAMETERS  3  X1,Y1,X2,Y2  :  integers  (box  corner 
coordinates) 

EXTERNAL 

NEEDS  s  none 

( a****#*****#******#***#*****#*#****#**#****#**#******##***  > 
procedure  BASICBOX  ( XI , Yt , X2,Y2s integer ) s 


var 

BC  s  array! 1 .. 1 , 1 .. 41  of  integer; 

M, I , J  3  Integer; 

begin 

(box  parameters! 

BC C 1 , 1 3  s»  XI;  BC £1,21  :«  Yl; 

BCE1, 31  s*  X2;  BCC1,43  :=  Y2; 

for  M  s*  1  to  1  do  begin  {draw  a  single  box  as 

needed! 

GotoXY  <BCEM, 1 1 , BCCM, 23 ) ; 
write (chr (201 ) ) ; 

for  J  s-  (BCCM, 11+1)  to  (BCCM,33-1)  do  begin 
GotoXY  < J ,BCCM, 23 )  ; 
write (chr (205) ) 
end;  {for  J  :*} 

GotoXY (BCCM, 33, BCCM, 23) ; 
wr i te (chr ( 187) )  ; 

tor  I  :*  (BCCM, 23+1)  to  (BCCM, 43-1)  do  begin 
GotoXY (BCCM, 13,1)  ; 
write (chr (186) )  ; 

GotoXY (BCCM, 33 , 1 )  ; 
wr i te (chr (186)  ) 
end;  Cfor  I  : =} 

GotoXY (BCCM, 1 3 , BCCM, 43 ) ; 
wri te (chr (200) ) ; 

for  J  ;»  (BCCM, 1 3+1 )  to  (BCCM, 33-1)  do  begin 
GotoXY ( J , BCCM, 43 ) ; 


100 


writ* (chr <205) ) 
end;  {for  J  i*> 

GotoXY (BCCM,33 ,BCCM,43) ; 
writ* (chr (188) ) 
end ;  {for  M  :*> 
and;  {procedure  BASICBOX> 

<  ***#******************#**#****##-»**«**-»*«**«'»***-IH(-»**#»***  ) 

PROCEDURE  :  CLOSEFILE 

WRITTEN  BY  :  Mika  Neel  ay  it  Bob  Wooldridge,  May,  86 
PURPOSE  :  Closes  the  chatterbox  file 
PARAMETERS  s  none 
EXTERNAL 

NEEDS  i  ALTERNATIVE  :  string! 13} 

( ********************************************************** ) 

procedure  CLOSEFILE; 


L,  X,  COUNTER 
CH 

ANONIMITY 
USERFILE 
PROBLEMNAME 
CHATRFILE 
CHECKFILE 
CHECKCODE 

procedure  6ETANS; 

{sol its  an  answer  from  the  user! 

begin 

repeat 

read  <kbd,CH) ; 
if  CH  in  C'a'..'z*3  then 
CH  i-  chr  <ord (CH) -32) ; 
until  CH  in  C'A'..'Z','  ',#133; 

end;  {procedure  GETANS3 


begin 
clrscr ; 

gotoxy  (16,5)j 

write  < 'Problem  File  Name:  **#*•***'); 

X  :■  36s  COUNTER  :»  1; 

repeat  {until  COUNTER  >8> 
gotoxy ( X ,5) ; 

GETANS; 

CHECKCODE C COUNTER 3  ;«  CH; 

if  not (CHECKCODE! 1 1  in  C'  ',#13])  then  begin 
write  (CH) ; 

X  :=  X  ♦  1; 

if  (CH  ■  #13)  then  begin 

CHECKCODE L COUNTER 1  :=  ALTERNATIVE; 


s  integer; 

:  char; 

:  char; 

:  stringC23; 

:  stringC83; 

:  string! 143; 

:  text; 

:  array Cl.. 33  of  char; 


for  L  :«  (COUNTER  -i-1)  to  8  do 
CHECKCODECLI  s-  *  '; 

COUNTER  8; 

end;  C if  CH-#13> 
if  COUNTER  ■  7  than  begin 

CHECK CODEC B3  ALTERNATIVE; 

COUNTER  8; 

end;  Cif  C0UNTER-7> 

COUNTER  :*  COUNTER  +  1; 
end;  Cif  not  usercode} 
until  (COUNTER  >  8); 

PROBLEMNAME  I-  CHECKCODE; 

if  PROBLEMNAME  <>  #13  then  begin 

CHATRFILE  *«  concat (FILEDRIVE, ’ t  * , PROBLEMNAME , * .  zzw * ) ; 
assi gn ( CHECKF I LE , CHATRF I LE ) ; 

C*I-> 

reset (CHECKFILE) ; 

C*I+> 

if  IOresult  =»  0  then  begin 
gotoxy  (18,10); 

write  ('CHATTERBOX  FILE  CLOSED'); 
read ( CHECKF ILE,USERF I LE) ; 

ANONIMITY  :*  copy <USERFILE,2, 1 ) ; 

USERFILE  :=*  concat  (' C  ANONIMITY)  ; 
r ewr i t e  <  CHECKF I LE ) ; 
write  (CHECKFILE,  USERFILE); 
end  Cif  IOresul t> 
else  begin 

gotoxy  (17,10); 

sound (440) ; del ay (250) ; nosound; 
write  ('CHATTERBOX  FILE  NOT  FOUND'); 
delay ( 1500) ; 
end;  (else! 
close (CHECKFILE) ; 
del  ay (1500) ; 
end;  Cif  PROBNAME} 
end;  (procedure  CLQSEFILEJ 

( ***#**•»***#***■»**■*******#******#***********##**•»*•»•*•»•»■»**•** ) 
PROCEDURE  i  SETFILE  (ANONYMOUS; boolean) ; 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 86 
PURPOSE  :  Sets  up  the  chatterbox  file  (called  in  the 
main  program) 

PARAMETERS  :  ANONYMOUS  ;  boolean; 

EXTERNAL 

NEEDS  ;  PROBNAME  s  stringC83; 

( ********************************************************** ) 

procedure  SETFILE; 


var 

ANONIMITY  ;  char; 

USERFILE  :  stringCZI; 


102 


mb 


*  •  ’ 


CHATRFILE 

CHECKFILE 


:  stringC 14] ; 
:  text; 


begin 

CHATRFILE  i-  concat (FILEDRI VE, ' : ' ,PROBNAME, ' . zzw ' ) ; 
•■sign (CHECKFILE, CHATRFILE) ; 
if  ANONYMOUS  than 
ANONIMITY  *=  'A' 

al  se 

ANONIMITY  s*  'N's 

USERFILE  :«  concat ( 'C *, ANONIMITY) ; 
rewri te (CHECKFILE) ; 
write  (CHECKFILE,  USERFILE) } 
close (CHECKFILE) ; 
and}  {procedure  SETFILEJ 


FILE  J  FILTER2.LIB  (4373) 

WRITTEN  BY  t  Niks  Nnliy  &  Bob  Wooldridge,  May, 86 

i  Procedure  library  for  TOUCHSTONE  (COOP 


PURPOSE 

Criteria 

thesis  for  a 

Management , 

California 

CONTENTS 


Filter  Program)  written  as  a  part  of  a 
Master  of  Science  in  Computer  Systems 
Naval  Postgraduate  School ,  Monterey , 
CHATRCHECK ,  SAVE SCREEN,  WRITESCREEN 


FUNCTION 
WRITTEN  BY 
PURPOSE 


PARAMETERS 

EXTERNAL 

NEEDS 


CHATRCHECK 

Mike  Neeley  &  Bob  Wooldridge,  May, 86 
Reads  the  information  in  two  files 
associated  with  a  specific  CHATRBOX  file  and 
determines  if  the  file  is  being  used  Candl 
if  a  recentry  entry  has  been  made, 
none 


s  type 

STRING3  «  string!33; 

DATASTRING  *  string  !501; 
var 

ALTERNATIVE  I  string! 13 | 

( a********************************************************* ) 


procedure  CHATRCHECK; 


var 

MESSAGEWAITING,  CHAT  A VA I L ABLE 
CHATRFILE 
CHECKFILE 
USERCHECK 
USERNAME 

begin 

MESSAGEWAITING  ;»  false; 

CHAT  A VA I L ABLE  s»  true; 

CHATRFILE  : = 

concat (FILEDRIVE, ' ,PROBNAME, ALTERNATIVE, '.zzw>; 
assi gn  <  CHECKF I LE , CHATRF I LE ) ; 

€♦1— > 

reset  (CHECKFILE) ; 

<*I+> 

if  IOresult  =»  0  then  begin 
read  (CHECKFILE , USERCHECK ) ; 
if  USERCHECK  =  then 

CHAT AVA I LABLE  s-  false; 
end;  fif  IOresult! 


:  bool ean ; 

;  string! 141; 
:  text; 

:  char ; 

:  stringC31; 


c 1 osa <  CHECKF I LE ) ; 


CHATRFILE  s- 

concat (FILEDRIVE, ' * ' ,PROBNAME, ALTERNATIVE, ' . zzq ' > ; 
assign  (CHECKF I LE, CHATRFILE) $ 

£*I-) 

reset  (CHECKFILE); 
l*  I+> 

if  IOresult  =  0  then  begin 
read  <  CHECKF I LE , USERNAME ) ; 
if  USERNAME  <>  NAMESTRING  then 
MESSAGEWAITING  s«  true; 
end)  Cif  IOresult) 
close (CHECKFILE) ; 

windowd,  1,80,25); 
if  not  CHAT AVA I LABLE  then  begin 
gotoxy  (59,25); 
text back ground (red) ; 
write  ('  CHATTERBOX  IN  USE  '); 
end  £if  not  CHATAVAILABLE) 
else  begin 

if  MESS AGEWAI TING  then  begin 
gotoxy  (59,25); 
textbackground (red) ; 
write  ('NEW  CHATTERBOX  ENTRY'); 
end  £if  MESSAGEWAITING) 
else  begin 

gotoxy  (59,25); 
textbackground (blue) ; 
write  ( ' CHATTERBOX  AVAILABLE ' ) ; 
end  fif  not  CHATAVAILABLE) 
end; 

textbackground (blue)  ; 
window (pt 1 ,pt2,pt3,pt4) ; 
end;  (procedure  CHATRCHECK) 


( ****»»*******************************#**#**#***'*****##•»*## ) 
FILE  s  FILTER3. LIB  <10579) 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 86 
PURPOSE  :  Procedure  library  for  TOUCHSTONE  (COOP 

Criteria  Filter  Program)  written  as  a  part 
of  a  thesis  for  a  Master  of  Science  in 
Computer  Systems  Management,  Naval 
Postgraduate  School,  Monterey,  California 
CONTENTS  :  SCROLLBOX 


<  *#*********#******#*•»******####*#**«*«-****###*#*-»***-»***** ) 


PROCEDURE  : 
WRITTEN  BY 


PURPOSE 


PARAMETERS 


EXTERNAL 

NEEDS 


SCROLLBOX 

Mike  Neeley  &  Bob  Wooldridge,  May, 86 
Word  processing  section  based  on  a  program 
by  Mark  Hayes 

Reads  from  a  text  file,  puts  text  into  a 
specified  window,  and  allows  scrolling 
within  that  window 

XX, YY  :  upper  left-hand  corner  of 

scrol lbox 

ENDTEXT  :  length  of  text  (100  lines  or 
less) 

TITLECODE  :  designates  the  title  of  the 
scrol lbox 


FILEDRIVE  :  drive  on  which  the  problem 
elaborator  file  is  located 
HELPDRIVE  :  drive  on  which  the  help  files 
are  located 

PROBNAME  :  name  of  the  textfile  called 


(  *****#***********#***#*##«******JHt*#***«**-<HHHMt****-»****«*  ) 


procedure  CHATRBOX 

( F I LEDR I VE  s  char ; PROBF I LE : STR I NG8  ;  PERSNAME : STR I NG3  > ; 
forward; 


procedure  SCROLLBOX 

( XX , YY: i nteger ; ENDTEXT: i nt eger ; TITLECODE : char ) ; 
type 

WPARRAY  *  array C 1 . . 100, 1 . . 503  of  char; 
TEXTARRAY  =  array C 1 .. 1001  of  stringC501; 
S7RING50  -  str  l ng C 501 ; 

var 

ENDRUN,  USEDFILE,  NEWFILE 
SCROLLFOUND,  EXPANDFOUND 
TEXTLINE,  X,  Y,  STOP 
LASTLINE,  ENDSCROLL,  CHECKLINE 
A ,  B  ,  F ,  I ,  J  ,  K  ,  i_ ,  M 

CH,  TEMPCH1 ,  TEMPCH2,  USERCHECK 
INSTRDRIVE 


:  boolean; 

:  boolean; 

:  integer; 

:  integer; 

:  integer;  [assorted 
counters) 

:  char; 

:  char; 
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USERNAME,  EXTENDER 
INSTRFILE 

EXPANDFILE,  HELPFILE 

WORKFILE 

TEMPNAME 

TEMPARRAY 

NAME 

SCREEN 

ATTRIBUTE 

WORDPROC 

TEMPLINE,  WORDLINE 


:  stringC33; 

:  stringC83; 
stringC143 ; 
text; 

array  Cl.. 33  of  char; 
array  Cl.. 503  of  char; 
array  Cl.. 1253  of  stringC33; 
arrayC 1 . . 25, 1 . . 803  of  integer; 
array C 1 .. 25 , 1 .. S03  of  integer; 
WP ARRAY; 

TEXTARRAY; 


procedure  FILLSCREEN  (STARTLINE  s  integer); 

Cwrites  the  file  array  to  the  screen  starting  at  the 
Cline  sent  as  a  parameter} 


var 

W, X  :  integer; 

begin  {procedure  FILLSCREEN} 

F  :=*  1 ; 

if  EXPANDFOUND  then  begin 

for  J  :=  STARTLINE  to  (STARTLINE  +  8)  do  begin 
for  K  1  to  50  do  begin 
gotoxy (K,F) ; 
write  ( WORDPROC CJ,K 3)  ; 
end;  Cfor  K} 

F  :=»  F  +  1 ; 
end;  {for  J} 
end  Cif  EXPANDFOUND} 
else  begin 

for  J  :=  STARTLINE  to  (STARTLINE  +  8)  do  begin 
gotox v  < 1 ,F) ; 
write  (W0RDLINECJ3)  ; 

W  : =  wherex ; 
for  X  :=  W  to  50  do 
write ( '  ' )  ; 

F  s-  F  +  1; 
end;  {for  J} 
end;  {else} 

end;  {procedure  FILLSCREEN} 


procedure  SAVESCREEN  <  X . Y; integer ) ; 

{Reads  the  screen  under  the  helpbox  into  an  array] 

begin  {procedure  SAVESCREEN} 
for  A:=  Y  to  (Y+10)  do  begin 
for  B  :=  X  to  (X+55)  do  begin 
SCREENCA,B3  := 

MemWC$B800: ( ( <A-l>*160>+< (B-l>*2> ) 3; 

ATTR I BUTE  C  A , B  3  :  = 

MemWC$B800:  ( ( <A-l>*160>  +  ( <B-1>*2>+1>  3; 
end;  {B} 


end;  CA1 

end;  {procedure  SAVESCREEN3- 


pr ocedur e  WR I TESCREEN  <  X , Y : i n t eger ) ; 

{write  back  the  saved  portion  of  the  screen) 

begin  {procedure  WRITESCREEN3- 
for  A:=  Y  to  (Y+10)  do  begin 
for  B  :=  X  to  (X+55)  do  begin 

MemWC*B800:  ( ( ( A-l ) *160)  +  < (B-l ) *2) ) 3  :  = 

SCREEN C A, B 3 ; 

MemW C $B800 :  < <  <A-l)*160)+< (B-l)*2)+l) 3 

ATTRIBUTECA,B3; 

end;  {B> 
end;  {A> 

end;  {procedure  WR I TESCREEN> 


begin  {procedure  SCR0LLB0X3 

{  ***  SCREEN  SETUP  PORTION  ***  > 

SAVESCREEN <  X  X  ,  Y  Y )  ; 

textcolor ( 15) ;  tex tbackground (2) ; 

window  <1,1 ,80,25)  ; 

BASICBOX (XX, YY, (XX+55) , (YY+10) ) ;  {draw  SCR0LL30X  window 

and  define) 

teiitcolor  <0)  ;  tex  tbackground  <  15)  ; 
gotoxy  < (XX+B) , YY) ; 

case  TITLECODE  of  {writes  appropriate 

title  of  box) 

A', 'a'  s 
begi  n 

write  <'  PROBLEM  EXPLANATION  '); 

INSTRFILE  :=  PRGBNAME; 
end; 

'B' ,  b'  : 
begin 

write  ('  CHATTERBOX  HELP  SCREEN  '); 

INSTRFILE  :=  ' CHATRBOX ' ; 
end; 

'C', 'c'  : 

begin 

write  ('  INSTRUCTION  SCREEN  #1  (F-10  TO  QUIT)  '); 

INSTRFILE  :=  ' HELPBX 1 ' ; 
end ; 

'D  ,  d  '  : 
begi  n 

write  ('  INSTRUCTION  SCREEN  #2  (F-10  TO  QUIT)  '); 

INSTRFILE  :=  ' HELPBX2 ' ; 
end; 

'E ' , ’e'  : 

begin 

write  ('  INSTRUCTION  SCREEN  #3  (F-10  TO  QUIT)  >; 

INSTRFILE  :=  ' HELPBX3 ’ ; 
end; 


*F ' , *f  *  s 
begin 

write  ('  INSTRUCTION  SCREEN  #4  (F-10  TO  QUIT)  '); 

INSTRFILE  :=  'HELPBX4 ' ; 
end; 

G  ,  g  : 
begin 

write  ('  INSTRUCTION  SCREEN  #5  (F-10  TO  QUIT)  '); 

INSTRFILE  :=  'HELPBX5 ' ; 
end; 

'H  ' ,  'h '  : 
begin 

write  ('  INSTRUCTION  SCREEN  #6  (F-10  TO  QUIT)  '); 

INSTRFILE  :=  ' HELPBX* '; 
end; 

'I  * ,  'i *  s 
begin 

write  (’  INSTRUCTION  SCREEN  #7  (F-10  TO  QUIT)  '); 

INSTRFILE  :=  'HELPBX7 ' ; 
end; 

'J'  ,  '  j  '  : 

begin 

write  ('  INSTRUCTION  SCREEN  #8  (F-10  TO  QUIT)  '); 

INSTRFILE  s=  'HELPBX8 ' ; 
end; 


'K ' t  '  k  '  : 

begin 

wri te  (  ' 
INSTRFILE 
end; 


INSTRUCTION  SCREEN  #9  (F-10  TO  QUIT)  '); 

: =  'HELPBX9 ' ; 


'L ' f  1  ’  s 


begin 

write  (  ' 
INSTRFILE 
end; 

s 

begin 

write  (  ' 
INSTRFILE 
end; 

'N ’ ,  'n  '  : 
begi  n 

write  ( ' 
INSTRFILE 
end; 

'0' t 'o'  : 

begi  n 

write  ( ' 
INSTRFILE 
end; 

'P* . *P#  : 

begin 

write  < ' 
INSTRFILE 
end; 


INSTRUCTION  SCREEN  #10  (F-10  TO  QUIT) 
=  'HELPBX10 ' ; 


INSTRUCTION  SCREEN  #11  (F-10  TO  QUIT)  '); 
:=  ' HELPBX 11'; 


INSTRUCTION  SCREEN  #12  (F-10  TO  QUIT) 
; =  'HELPBX12 ' ; 


>  ? 


INSTRUCTION  SCREEN  #13  (F-10  TO  QUIT)  '); 
;=  'HELPBX 13 ' ; 


INSTRUCTION  SCREEN  #14  (F-10  TO  QUIT)  '); 
:=  ' HELPBX 14 ' ; 
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PROBLEM  EXPLANATION 


begin 

write  < ' 
ends 

ends  Cease  TITLECODE} 


if  TITLECODE  in  C  ' A  '  ,  ' a '  ,  '  Z  *  , 'z  '  3  then  begin 
EXTENDER  s=  'zzx's 
INSTRDRIVE  :  =  FILEDRIVE; 
end  Cif  TITLECODE} 
else  begin 

EXTENDER  : =  'zzy's 
INSTRDRIVE  s -  HELP DRIVE; 
end;  Celse> 


it  TITLECODE  in  C'Z','z'3  then  begin 
gotoxy  ( (XX) , (YY+10) ) ; 
write  ('  USE:  UP&DN  ARROW  KEYS, 

HOME, END, PQ  UP,PG  DN,F-10(quit)  '); 
end  Cit  TITLECODE! 
else  begin 

gotoxy  ( (XX+2) , (YY+10) )  ; 

write  < ' USE  s  ARROW  KE YS , HOME , END , PG  UP , PG 
DN , TAB , DEL , RETURN ' > ; 

end;  Cel se) 

tex tcol or ( 15) ;  textbackground (2) ; 

window ( (XX+1) , (YY+1) , (XX+54) , (YY+9) ) ; Cclear  the  screen 

area} 

clrscr; 

window ( (XX+3) , (YY+1 ) , (XX+53) , (YY+9) > ; Cidentity  the  text 

parameters} 


C  ***  FILE  SETUP  PORTION  ***  } 

EXPANDFOUND  :=  falses 
if  TITLECODE  in  C'Z-,'z'3  then  begin 
for  J  : =  1  to  50  do 

for  K  :=  1  to  100  do  Cthe  wordprocessi ng 

array  is} 

WORDPROCCK, J3  :=  chr(32);  Cinitialized  to  all 

bl anks) 

EXPANDFOUND  :  =  true 
end  Cif  TITLECODE} 
else  beqin 
HELPFILE  := 

concat (INSTRDRIVE, 's ' , INSTRFILE , ', EXTENDER) ; 

assign  ( WORKF I LE, HELPFILE) ;  Copen  CHATRFILE  and 

read  into} 

C*I-} 

reset  (WORKF I LE) s  Cword  processing 

array) 

C$I+) 

if  IOresult  =  0  then  begin 
I  :=  1? 


while  (not  eof (WORKFILE) )  and  (I  < (ENDTEXT+1 > )  do 
begin 

readln  (WORKFILE, WORDLINEC I  3 )  ; 

I  i»  I  +  1; 
end*  (while  not  eof} 

SCROLLFOUND  s*  true; 
end  (if  IOresult} 
else  begin 
gotoxy (5,5) ; 

if  TITLECODE  in  C*A','a'3  then 

write  < 'NO  EXTENDED  EXPLANATION  FOR  THIS  PROBLEM  * ) 

else 

write  ('  HELP  FILE  NOT  FOUND  ON  DISK'); 

gotoxy (5,7) ; 

write  ('  Press  any  key  to  continue  '); 

SCROLLFOUND  : =  false; 
repeat  until  keypressed; 
end;  (else! 
close  (WORKFILE); 
end;  (else! 

(  ***  INITIALIZATION  ***  } 


LASTLINE  :=*  1; 

USEDFILE  :=  false:  (of  run  &  the  "dirty  bit"  flag) 

if  SCROLLFOUND  or  EXPANDFOUND  then  begin 
FILLSCREEN  (1); 
if  EXPANDFOUND  then 
ENDSCROLL  :»  100 
else 

ENDSCROLL  ENDTEXT;  (designate  last  line  of  scroll - 

(only  text} 

X  :=  1;  Y: *  1:  (initialize  column,  row! 

TEXTLINE  :=  1$  (initialize  textline} 

ENDRUN  : =  false;  (initialize  flag  for  end  of  run! 

{  ***  SCROLLING  ROUTINE  #**  } 

repeat 

gotoxy (X , Y)  ; 
read  (kbd,CH); 
case  CH  of 

#32.. #126  :  (regular  characters} 

if  EXPANDFOUND  then  begin 
USEDFILE  :=  true: 

if  WORDPROCC  TEXTLINE ,  X  3  <>  chr<32>  then  begin 
TEMPCH1  :=  CH; 
for  K  :=  X  to  50  do  begin 

TEMPCH2  :=  W0RDPR0CCTEXTLINE,K3 ; 
WQRDPROCCTEXTLINE ,K3  :=  TEMPCH1; 
gotoxy <K, TEXTLINE) ; 
write <W0RDPR0CCTEXTLINE,K3> ; 

TEMPCH1  :=  TEMPCH2; 
end;  (for  K=X  to  50} 


■nd  {if  WORDPROC  <>  chr(32)> 

>lsi  begin 

WORDPROC C TEX TL I NE, X]  :«  ch; 
wr  i te ( ch ) ; 

•nd;  {else! 

X  :-  X  ♦  1; 

if  TEXTLINE  >  LASTLINE  then 
LASTLINE  :«  TEXTLINE; 
end;  {if  EXPANDFOUND! 

#8:  {BACKSPACE! 

if  EXPANDFOUND  then  begin 
if  X  >  1  then  begin 
X  s-  X  -  1; 
got ox y (X, Y) ; 

for  J  i*  X  to  49  do  begin; 

WORDPROC C TEXTL I NE fJl  :  = 

WORDPROCCTEXTLINE, J+13; 
write (WORDPROCCTEXTLINE, J3 )  ; 
end;  {fo r> 

•nd;  {if  X>1> 

WORDPROC C TEXTLINE, 50 1  s-  chr (32) ; 
gotoxy (50, Y) ; 

wri te (WORDPROCCTEXTLINE ,50] )  ; 
end;  {if  EXPANDFOUND > 

#9  :  {TAB  key] 

if  EXPANDFOUND  then 
if  X  <  46  then 
X  :»  X  +  5; 

#13:  {RETURN  key! 

if  EXPANDFOUND  then  begin 
if  Y  <  9  then  begin 
Y  :«  Y  +  1; 

X  :«  1; 

TEXTLINE  TEXTLINE  +  Is 
end  {if  Y<9! 

else  begin 

if  TEXTLINE  <100  then  begin 
TEXTLINE  TEXTLINE  +  1; 

F I LLSCREEN (TEXTLINE  -  8); 

X  :-  1; 

end  Cif  TEXTLINE  <100! 
else  begin 

sound (800) ; del  ay (50) ; nosound;  {Too  far 

down! 

end;  -Ceise! 
ends  CeiseJ 
end;  {if  EXPANDFOUND! 

#27:  {ESCAPE  key! 

begin 

read  (kbd ,CH) ; 
case  CH  of 
#60  : 
begin 

if  not  (TITLECODE  in  C'B','b']>  then  begin 
CHATRBOX (Fll  EDR I VE,PROBNAME, NAMESTRING) ; 
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MindOM ( (XX+3) , (YY+1) , (XX+53) , (YY+9) ) 5 
tax t col or < 15) ;  textbackground (2) $ 
and |  fif  not  TITLECODE} 
and 1  (casa  #60 > 

*68  t  ENORUN  1-  true;  {Key  F-10  to  quit  > 

#72  *  {UP  arrow  key} 

bagin 

if  Y  >  1  than  bagin 

Y  «-  Y  -  1; 

TEXTLINE  *«  TEXTLINE  -  1; 
and  {if  Y>1> 
alaa  bagin 

if  TEXTLINE  >  1  than  bagin 
TEXTLINE  1-  TEXTLINE  -  1; 

FILLSCREEN  (TEXTLINE); 
and  fif  TEXTLINE>1> 
alsa  bagin 

sound (2B00) ; dal ay (30) ; nosound; 

{Too  far  up} 
end;  false} 
end;  {else} 
end;  {#72  case} 

#80  :  {DOWN  arrow  key} 

begin 

if  Y  <  9  then  begin 

Y  :=  Y  +  1: 

TEXTLINE  :»  TEXTLINE  +  1; 
end  {if} 
else  begin 

if  TEXTLINE  <  ENDSCROLL  than  begin 
TEXTLINE  ;  =  TEXTLINE  +  1; 

FILLSCREEN  (TEXTLINE  -  8) ; 
end  {if  TEXTLINE< ENDSCROLL} 
else  begin 

sound (800) ; del  ay (30) ; nosound;  {Too  far 

down} 

end;  {else} 
and;  {else} 
end;  {#80  case} 

#77  *  {RIGHT  arrow  key} 

if  EXPANDFOUND  then  begin 
if  X  <  50  then 
X  *-  X  +  1 
else  begin 

sound ( 2000 ) ; del av ( 30) ; nosound ;  {Too 

far  right} 

end;  false} 
and;  fif  EXPANDFOUND} 

#75  :  {LEFT  arrow  key} 

if  EXPANDFOUND  then  begin 
if  X  >  1  then 
X  :«  X  -  1 
else  begin 

sound ( 1200) ; delay (50) mosound;  {Too 

far  left} 


end; 

#83  i  {DELETE  key} 

if  EXPANDFOUND  than  bag in 
for  J  *«  X  to  49  do  begin 
WORDPROCC TEXTLINE, J3  i« 

WORDPROC C TEX TL I NE , J + 13 5 
wr i ta < WORDPROC C TEXTL I NE , J 3 > ; 
and*  {for} 

WORDPROCC TEXTLINE, 503  s-  chr(32); 
got ox y (50, Y) | 

write (WORDPROCC TEXTLINE, 50 3) $ 
and*  {if  EXPANDFOUND} 

#73  *  {PQ  UP  kay> 

bagin 

if  (TEXTLINE-Y)  >  9  than 
TEXTLINE  i»  TEXTLINE  -  9 
else  bagin 

sound (2800) *  dal ay (50) ; nosound;  {Too  far 

up} 

TEXTLINE  *»  1; 

Y  s«  1* 
and*  {alsa} 

FILLSCREEN ( TEXTLINE- Y+l > ; 
and;  {#73  case} 

#81  s  {PG  DN  key} 

bagin 

if  EXPANDFOUND  then  begin 
if  TEXTLINE  <  91  then 

TEXTLINE  **  TEXTLINE  +  9 
else  begin 

sound (800) *  del ay (50) ; nosound;  {Too  far 

down} 

TEXTLINE  :=*  100* 

Y  :■  9; 
end;  {else} 

and  £if  EXPANDFOUND} 
else  begin 

if  (TEXTLINE  -  Y)  <  (ENDSCROLL-18)  then 
TEXTLINE  »»  TEXTLINE  +  9 
else  bagin 

sound (800) ; dal  ay (50) ; nosound;  {Too  far 

down} 

TEXTLINE  *=»  ENDSCROLL* 

Y  :«  9; 
and;  {else! 

and;  {alsa} 

FILLSCREEN (TEXTLINE  -  Y  +  1); 
and;  {#81  case} 

#71  i  {HOME  key} 

begin 

TEXTLINE  :»  1; 

X  :«  1*  Y  s«  1; 

F I LLSCREEN  (TEXTLINE); 
and*  {#71  easel 


•79  t  {END  kay> 

if  EXPANDFOUND  than  bagin 
TEXTLINE  i-  LASTLINE* 
if  LASTLINE  >  9  than  bagin 

V  »-  9* 

FILL SCREEN (TEXTLINE  -  8) * 
and  {if  LASTLINE >9> 
alaa  bagin 

F ILLSCREEN  < 1 ) * 

Y  i-  LASTLINE* 
and*  <alaa> 

X  *-  50* 

and  {if  EXPANDFOUND> 
alaa  bagin 

TEXTLINE  I-  ENDSCROLL* 

Y  i-  9* 

FILL SCREEN  ( ENDSCROLL -8 ) * 
and*  <a laa> 

and*  (cam  CH  of> 
and*  {«27> 
and*  tcaaa  CH  of} 

*  *  *  WORD  WRAP  PORTION  OF  THE  WORDPROCESSING  ROUTINE  *  *  * 

*  At  tha  and  of  tha  lina,  if  tha  uaar  ia  atill  typing,  * 

*  thia  sac t ion  cauaaa  tha  lina  to  wrap  around  to  tha  naxt  * 

*  lina.  * 


if  (X  >  30)  and  (TEXTLINE  <  100)  and  EXPANDFOUND  than 
baqin 

X  I-  S0| 

if  WORDPROCt TEXTLINE, X3  <>  chr<32>  than  bagin 
Ctaat  laat  char  in  lina  for} 

{blank} 

Mhila  WORDPROCt TEXTLINE, X3  <>  chr<32>  do 
X  *-  X  -  1*  traaat  X  to  poa  of 

last  blank  } 

for  M  s «  (X  ♦  1)  to  50  do  bagin 
WORDPROCtTEXTLINE+1 ,H— X  3  i« 

WORDPROCC TEXTLINE, Ml; 

tmova  tha  char  to  corract  3 
gotoxy(M,Y)*  {array  pos> 

WORDPROCt TEXTLINE, M3  i-  chr<32>* 

wri ta<W0RDPR0CtTEXTLlNE,M3 > :  Caraaa  word  from 

•nd  of  -  in*} 

if  Y  <  9  than  bagin 
gotoxy (M-X , Y+l ) * 

writa(WGRDPROCtTEXTLir«+l  ,M-X3> ; 

(writ*  word  at  front  of  naw  lina} 
and*  tif> 
and;  {for} 
x  (M-X)  «-i : 

and  Cif} 
alaa 

X  1; 
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TEXTLINE  s-  TEXTLINE  +  1* 


if  V  <  9  than 
Y  «-  Y  ♦  1 
tlH  bag  in 
V  i-  3; 

FILLSCREEN  < TEXTLINE  -  2) j 
sound <2800) ;  del  ay  (50) i nosound; 
sound (800) ; daisy (30) ; nosound; 
sound < 1200) ; daisy <50) ; nosound; 
sound (2000) ; daisy (50) jnosound; 
and;  falsa} 
and  <if> 
until  ENDRUN; 

<*  *  *  SAVE  FILE  PORTION  ***************** 

*  At  tha  and  o-f  tha  wordprocassing  sassion,  tha  file  is  * 

*  ssvad  by  moving  sll  taxt  linas  to  tha  and  of  tha  file  * 

*  so  thay  csn  ba  rasdjustad  whan  tha  fila  is  next  opanad.  * 


if  USEDFILE  than  bagin 
clrscr ; 

taxtcolor < 15) ;  tax tbsckground (0) ; 
gotoxy  < 11,5) ; 

writer  SAVING  PROBLEM  EXPLANATION  *>; 

EXPANDFILE  cones t (FILEDRIVE, ' :  * , PROBNAME,  ' .  zzx  '  )  : 
sssign  (WORKFILE, EXPANDFILE) ;  (opan  CHATRF I LE 

snd  rasd  into  > 

rewrite  (WORKFILE);  (save  tha  srrsy  to  disk! 
for  J  i*  1  to  50  do  bagin 
for  K  : ■  1  to  50  do 

TEMPARRAYCKI  WORDPRQC C  J  ,  K 1  s 

TEMPLINEC J 1  :»  TEMPARRAY; 
and;  If  or  J  :  *  1  to  50} 

for  J  i»  1  to  50  do  bagin 

wr i tain  (WORKFILE, TEMPLINEC J 3 ) : 
and ;  (for  J } 
c loss (WORKFILE) ; 
and;  {if  USEDFILE} 

and;  {if  SCROLLFOUND  or  EXPANDFOUND} 


*  *  *  RETURN  TO  NORMAL  ROUTINE  ************** 

*  Clears  tha  chatterbox  window  ana  rewrites  tha  screen  * 

*  portion  that  was  ssvad  whan  chatterbox  was  invoked.  * 


window  <XX,YY, (XX+55) , (YY+10) ) ; 
clrscr i 

window  (1,1,80,25); 

WRITESCREEN  <XX,YY);  {write  previous 

screen  back) 

and;  {procedure  SCROLLBOX} 


<  #********************************************************* ) 


FILE  :  FILTER4. LIB  (26092) 

WRITTEN  BY  s  Mike  Neeley  &  Bob  Wooldridge,  May, 86 
PURPOSE  *  Procedure  library  for  TOUCHSTONE  (COOP 

Criteria  Filter  Program)  written  as  a  part 
of  a  thesis  for  a  Master  of  Science  in 
Computer  Systems  Management,  Naval 
Postgraduate  School,  Monterey,  California 
CONTENTS  s  CHATRBOX 

( a*******************-************************************** ) 


PROCEDURE  t 
WRITTEN  BY  t 

PURPOSE  s 

PARAMETERS  : 

EXTERNAL 
NEEDS  : 


CHATRBOX 

Mike  Neeley  &  Bob  Wooldridge,  May, 86 
Word  processing  section  based  on  a  program 
by  Mark  Hayes 

Reads  from  a  text  file,  puts  text  into  a 
specified  window,  and  allows  scrolling 
within  that  window  for  previous  input; 
allows  word  processing  for  the  new  input. 


FILEDRIVE 

PROBFILE 

PRESNAME 

ALTERNATIVE 


drive  on  which  the  file  is 
1  oca ted 

name  of  the  textfile  called 
name/initials  of  the  user 
Character  designating 
cr i teri a/al ternat i ve  selection 


type 

STRING8  ■  string C83 
STRING3  «  stringt33 


var 

ALTERNATIVE  *  string! 13; 

INCLUDE  file  s 

FILTER1 . LIB,FILTER2. LIB.FILTER3.LIB 

<  ******-*■**#*****-»**■***•**•(»•*************■»*■»*■*■»■»■»**■»********■** ) 


procedure  CHATRBOX 

{(FI LEDR I VE : char ; PROBF I LE : STR I NG8 ; PERSNAME s STR I NG3 ) J ; 


type 

WP ARRAY  «  array! 1. . 125,1. .553  of  char; 
FILEARRAY  -  arr ay! 1.. 803  of  string!553; 
DATASTRING  »  STRING! 50 3; 


var 

SCREEN 
of  integer; 

ATTRIBUTE 
of  integer; 

ENDRUN,  USEDFILE,  NEWENTRYSEEN 
CHANGE,  SCROLLONLY, OKA Y_TQ_ CHAT 
NEWFILE,  NEWLINE 
TEXTLINE,  X,  V,  STOP 
LASTLINE,  ENDSCROLL,  CHECKLINE 
A,B,F,I ,J,K,L,M 


:  arravC 1 . . 25, 1 . 


:  array! 1 . . 25, 1 . 

:  boolean; 
t  boolean; 

:  boolean; 

:  integer; 

:  integer; 

:  integer; 


00  J 

801 


(assort ed 
counters) 


CH,  TEMPCH1,  TEMPCH2 ,  USERCHECK  s  char; 

ANONIMITY  i  char; 

USERFILE  s  stringC23; 

USERNAME  :  stringC33; 

CHATRFILE,  SAVEFILE  s  string! 143; 

TEMPLINE  :  stringC553; 

BUFFERLINE  :  stringC553; 

TEMPNAME  :  array  Cl.. 33  of  char; 

DATELINE, TEMP ARRAY  2  array  Cl.. 551  of  char; 

NAME  s  array  Cl.. 1253  of  stringC3J: 

CHECKFILE,  TEXTFILE  *  text; 

SAVELINE  :  FILEARRAY? 

WORDPROC  i  UP ARRAY; 

function  WRITEDATE (PERSNAME  *  STRINQ3) s  DATASTRING; 
{writes  the  date/ time  on  a  line  at  the  bottom  of  an  entry! 

type 

REGISTERS  -  record 

AX ,BX , CX , OX , BP , SI , DS , ES , FLAGS  :  integer 
end;  {record! 


REGS 
STRDATE 
STRTIME 
DA, MO, HR, MN 
YR 
I 

begin  Cfunction  WRITEDATE! 
with  REGS  do  begin 
AX  i*  42A00; 
msdos (REGS) : 
str (CX, YR) ; 
str ( 1 o (DX ) ,DA) ; 
if  (lo (DX )  <  10)  then 
DA  :*  concat ( '0 ' .DA) ; 

«tr (hi (DX)  , MO) ; 
if  (hi (DX)  <  10)  then 
MO  concat (' 0 ' ,M0) ; 
end;  Cwith  REGS! 
with  REGS  do  begin 
AX  :=■  T2C00; 
msdos (REGS) ; 
str (hi (CX) ,HR) ; 
str (lo(CX) , MN) ; 
if  (lo(CX)  <  10)  then 
MN  **  concat ( '0 ' ,MN) ; 

end; 

if  LENGTH (PERSNAME) <3  then 

for  I  :*  1  to  (3-LENGTH (PERSNAME) )  do 
PERSNAME  s  —  concat (PERSNAME ,  '  '): 


:  REGISTERS; 

:  stringC10J; 
:  stringCS!; 

:  stringC2I; 
i  stringC4I; 
i  integer; 


if  NEWLINE  then  begin 

WRITEDATE  *-  concat ('****  ' ,PROBFILE, '  FILE  BEBUN 
' ,M0,  */* ,DA, 

' / ' , YR ,  '  t  * ,HR, 's *,MN, '  ♦*******♦*') ; 

NEWLINE  s*  false; 
end  {if  NEWLINE! 

else 

WRITEDATE  8-  concat ('**  MESSAGE  ENDED: 

* , MO, */* , DA,  /* , YR, 

*  8  * , HR , ' s  ' , MN , '  #***  ' , PERSNAME , '  ****'); 
end;  {function  WRITEDATE! 

procedure  FILLSCREEN  (STARTLINE  8  integer); 
{Sub-procedure  to  write  the  array  to  the  screen  starting 
at  the  line  number  sent  as  a  parameter! 

begin  {procedure  FILLSCREEN! 

F  s-  3; 

for  J  s*  STARTLINE  to  (STARTLINE  +  6)  do  begin 
if  (WORDPROCC  J  ,21s* '  *  ' )  and  (WORDPROCC  J  ,481*  '  *  ' ) 
and  (WORDPROCC  J ,491s1  >  then  textbackground  ( 1 ) 

else 

textbackground (4)  ; 
for  K  :■  1  to  50  do  begin 
gotoxy (K,F) j 
write < WORDPROCC J.Kl) ; 
end;  {for  K  :*  1  to  50! 

F  8“  F  +  lj 
end;  {for  J! 
textbackground (4) ; 
end;  {procedure  FILLSCREEN! 

pr ocedur e  SAVESCREEN  <  X , Y  s i nteger ) ; 

{Reads  the  screen  under  the  helpbox  into  an  array) 

begin  {procedure  SAVESCREEN! 
for  As*  Y  to  (Y+10)  do  begin 
for  B  s*  X  to  (X+55)  do  begin 
SCREEN C A, Bl  s* 

MemW C$8800 s ( ( < A-l > *160) + ( (B-l ) *2) ) 3; 
ATTRIBUTECA,B3  :* 

MemW  C  $B800 :  ( ( (A-l ) *160)  +  ( (B-l)*2)+l) 1; 
end;  CB! 
end;  {A! 

and;  {procedure  SAVESCREEN! 


prociduri  WRITESCREEN(X, Y: integer) $ 

{write  back  the  saved  portion  of  the  screen) 

begin  {procedure  WRITESCREEN) 
for  Ai®  Y  to  (Y+10)  do  begin 
for  B  *■  X  to  (X+55)  do  begin 

MemWC*B800: ( ( (A-l)*160)+( (B-l)*2)  >3  :* 

SCREENCA,B3; 

MemWC*B800;  ( ( ( A-l ) *160)  +  ( <B-1 ) *2) +1 ) 3  s  = 
ATTRIBUTECA,B3; 

end;  {B> 
end;  CA> 

end;  {procedure  WRITESCREEN) 
begin  {procedure  CHATRBOX> 

(*  *  *  SCREEN  SET-UP  PORTION  **************** 

*  Saves  the  protion  of  the  screen  under  the  chatterbox ,  * 

*  and  initializes  the  color  and  size  of  the  chatterbox.  * 
************************«*****) 

SAVESCREEN ( 23 , 12)  ; 

textcolor (15) ;  textbackground (4) ; 

window ( 1,1 ,80,25) $ 

BASICBOX (23,12,78,22) ;  {draw  CHATRBOX  window 

and  define) 

textcolor (0) ; textbackground ( 15) ; 
gotoxy  (28,12); 

write  ('  CHATTERBOX  CF-1  for  help,  F-10  to  quit)  '); 
gotoxy  (25,22); 

write  ('USE:  ARROW  KEYS , HOME , END , PG  UP,PG 
DN , TAB , DEL , RETURN ' ) ; 
textcolor ( 15) ;  textbackground (4) ; 

window (24, 13, 77,21 ) ;  {the  parameters  of  the  text) 

clrscr;  {manipulation  area  and  clear  the) 

window (26, 13,76,21 ) ;  {screen  in  that  sector) 
gotoxy (40, 1 > ; 
write  ( 'LINE  #:  ' )  ; 

*  *  *  CHATTERBOX -IN-USE  CHECK  *************** 

*  Checks  to  see  if  chatterbox  is  in  use;  if  so,  puts  a  * 

*  message  on  the  screen  to  say  so.  * 

*********  *  *  ******************* 

NEWFILE  :=  false; 

CHATRFILE  s= 

concat (FILEDRIVE, 's ' , PROBF I LE ALTERNATIVE, ' .zzw' ) ; 
assign (CHECKF I LE, CHATRFILE)  ; 

{$I~)  {Turn  I/O  off,  check  for  the  } 

reset  (CHECKF  I  LE)  ;  {existence  of  the  chatrfile,  !<  ) 

{$I+)  {turn  the  I/O  back  on  ) 

if  IQresult  =  0  then  begin 
read ( CHECKF I LE , USERF I LE ) ; 

USERCHECK  : -  copy (USERF I LE, 1,1); 

ANONIMITY  :=  copy (USERFILE , 2 , 1 ) ; 
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if  (USERCHECK  »  'C')  then 

begin  {If  chatterbox  is  being  used,  > 
QKAY_TO_CHAT  s=  true;  {the  "zzw"  -file  will  contain 

USERFILE  s=  concat (  '  0 ' , ANGNIMITY) ; 

rewri te (CHECKFILE) ;  {"0"  for  open;  otherwise,  it  3 

write (CHECKFILE, USERFILE) ;  {will  have  a  "C"  for 

closed.  3 

end 
else 

OKAY_TO_CHAT  :  =  false; 

end 

else  begin 

OKAY_TO_CHAT  s«  true; 

USERFILE  s*  concat ( '0' , ANGNIMITY) ; 

rewri te (CHECKFILE) ; 

write (CHECKFILE, USERFILE)  ; 

NEWFILE  s=  true; 
end; 

c 1 ose ( CHECKF I LE ) ; 

*  *  *  FILE  SET-UP  PORTION  ***************** 

*  Gets  and  sets  up  the  chatterbox  file;  moves  all  info  * 

*  in  file  to  first  80  lines  and  clears  last  45  lines;  * 

*  no  information  before  the  last  S0  lines  is  displayed  but* 

*  all  information  is  maintained  in  the  chatterbox  file.  * 
****************************** 

NEWLINE  :=*  false; 

for  J  :=*  1  to  55  do  {At  the  beginning  of  the  pro-  3 

for  K  s*  1  to  125  do  {gram, the  wardprocessing  array] 
WORDPROC C K , J 3  : «  chr(32);  {is  initialized  to  all 

blanks  > 


SAVEFILE  := 

concat (FILEDRIVE, ' : ' , PROBF I LE, ALTERNATIVE, ' 
assign  < TEXTF I LE, SAVEFILE) ; {open  CHATRFILE  and 


{*1-3 

reset (TEXTF I LE) ; 

{*1+3 

if  IOresult  =  0  then  begin 
I  :  —  1 ; 

while  not  eof  (TEXTF I LE) 
raadln (TEXTFILE) ; 

I  s=  I  +  1; 
end;  {while  not  eof> 

I  s=  I  -  1; 
if  I  >  80  then  begin 
K  s~  I  -  80; 

M  :  =  0; 

reset  (TEXTFILE) ; 
far  J  :=  1  to  K  do 
readln (TEXTFILE) ; 
end  {if  I  >803 


zzz  ' ) ; 
read  into] 
{word  processing  array 
{Turn  I/O  off,  check  for  the 
{existence  of  the  workfile,  & 
{turn  the  I/O  back  on 


do  begin 

{This  section  counts  the  ] 
{number  of  lines  in  the  text  J 
{file  and  uses  that  informa-  ] 
{tion  to  put  the  correct  info  ] 
{into  the  array.  If  more  than] 
{80  lines  are  in  the  file,  ! 
{only  the  last  80  are  put  into] 
{chatterbox  for  review.  ] 


else  begin 
K  :  =  1; 

M  :=  80— I ; 
reset  (TEXTFILE) ; 
end; 

■for  L  s=  K  to  I  do 

readln  (TEXTFILE, SAVELINEC (L-K)  +  1  +  M3); 
for  I  :=  (M+l)  to  30  do  begin 
BUFFERLINE  :=  SAVELINEC II; 
for  J  :  =  1  to  55  do 

WORDPRDCC I , J I  :=  BUFFERL I NE  C  J I ; 
end;  -Cfor  I  :=  1) 
end  £if  IOresult) 
else 

NEWLINE  :=  true; 
close  (TEXTFILE); 

*  *  *  LOCATE  PREVIOUS  FILES  **************** 

*  Locates  last  incident  of  user  name  and  starts  file  * 

*  review  at  that  point;  if  last  incident  is  after  line  77,* 

*  the  file  review  starts  at  line  82.  * 

****************************** 

for  J  : —  1  to  80  do 

for  I  :=  51  to  53  do  begin 

TEMPNAMEE 1-503  :=  WORDPROCC J , I j ; 

NAME  C  J 1  :=  TEMPNAME; 
end; 

USERNAME  :=  PERSNAME; 

for  I  s-  1  to  3  do  {Change  username  to  all  caps  ) 

if  USERNAME C 1 1  in  C'a'..'z'3  then 

USERNAME C 1 1  :=  chr (ord (USERNAMEC I  3 )  -  32); 

if  LENGTH (USERNAME) <3  then 

for  I  :=  1  to  (3-LENGTH (USERNAME) >  do 
USERNAME  :=  concat (USERNAME , '  '); 

I  :=  80; 

if  not(NEWFILE)  then 

while  (I  >  1)  and  (NAMECI3  <>  USERNAME)  and  ( NAME C 1 1  <> 
'ZZZ')  do 

I  :=  I  -  1 
else  begin 

TEMPNAME  :=  ZZZ';  {Set  up  "file  begin"  line) 

for  J  : —  51  to  53  da 

WORDPROCC 31 ,J3  :=  TEMPNAME  C  J —50 3 ; 

TEMPLINE  :=  WRITEDATE  ('***’); 
for  J  i-2  to  49  do 

WQRDPROC  C  8 1 , J  3  ;=  TEMPL INEC J  3 ; 
end;  {else) 
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*  *  *  INITIALIZATION  ******************* 

*  Initializes  all  the  necessary  valuables  needed  to  start  * 

*  the  word-processing/scrol  ling  section  of  the  procedure.  * 
****************************** 


i-f  I  >76  then  begin 
SCROLLONLY  :=  true; 

FILLSCREEN  (76)  ; 

TEXTLINE  :=  32; 
end  £if  I>79> 
else  begin 

SCROLLONLY  s=  false;  {initialize  flags  for  info  line! 
FILLSCREEN  <I);  {draw  initial  screen  3 

TEXTLINE  ;*  I  +6; 
end ;  {el  se! 

if  I  <>  80  then  begin  {indicates  on  the  screen  when  3 
textcolor (31) ;  tex tbackground (4) ;  {there  are  new 

entries  not  yet3 

gotoxy <25, 1 ) ;  {seen/answered  by  the  user  3 

write  ( ' *NEW  ENTRIES*'); 


textcolor ( 15) ;  tex tbackground (4) ; 

NEWENTRYSEEN  false; 
end  {if  IO803 
else  NEWENTRYSEEN  ;=  true; 

CHANGE  :=  true; 

ENDSCROLL  :=  81;  {designate  last  line  of  scroll! 


X  ;=  1;  Y:=  9; 
LASTLINE  ;=  81; 
ENDRUN  : =  false; 
USEDFILE  • —  false; 
CHECKLINE  :=  0; 


{only  text  3 
{initialize  column,  row,  and  3 
Clast  line  of  text  3 
{initialize  the  flag  for  end  3 
{of  run  St  the  "dirty  bit"  flag! 


*  *  *  WORDFROCESSING  ROUTINE  *************** 

*  A  simple  wordprocessor  which  allows  the  user  to  write  * 

*  messages  in  the  chatterbox.  * 

***************************** 

repeat  {begin  wordprocessi ng  routine  3 

if  CHECKLINE  <>  TEXTLINE  then  begin 
gotoxy  (49, 1 )  ; 
write  ( '  ' ) ; 

gotoxy (48, 1 ) ;  {write  text  line  on  top  of  3 

wri te (TEXTLINE) ;  {chatterbox  3 

CHECKLINE  ;=  TEXTLINE; 
if  (TEXTLINE  <=  ENDSCROLL)  and 
(SCROLLONLY  =  false)  then 
CHANGE  ;=  true; 

if  (TEXTLINE  >  ENDSCROLL)  and  (SCROLLONLY  =  true)  then 
CHANGE  :=  true; 

if  CHANGE  then  begin  {this  section  tests  for  a) 

gotoxy  (1,1);  {change  in  the  status  3 


if  SCROLLONLY  then 
begi  n 


{from  wordprocessi ng  to 


text col or ( 1 ) ; 

text background < 12) ;  {scroll -only  and  changes  > 
write  <  ' WQRDPROCESS I NG  SECT ION'); 

{the  label  in  the  cht/box! 

SCROLLONLY  s=  false; 

if  NEWENTRYSEEN  =»  false  then  begin  {erases  NEW 

ENTRIES  > 

textcolor < 15)  ;  textbackground (4)  ;  {flag  on 

screen! 

got ox y <25, 1 ) ; 

write  ( '  ' ) ; 

NEWENTRYSEEN  s*  true; 
end;  {if  NEWENTRYSEEN=truel 
end  {if  SCROLLONLY! 
else  begin 

textcolor  <(3) ;  textbackground  ( 10) ; 
write  < 'SCROLLING-ONLY  SECTION' ) ; 

SCROLLONLY  :=  true; 
end;  {else! 

text col  or  < 15) ;  textbackground (4) ; 
sound ( 1S40) ; del  ay  < 100) ; nosound; 

CHANGE  :*  false; 
end;  {if  CHANGE! 
end;  {if  CHECKLINE! 
gotoxy (X, Y) ; 
read  (kbd,CH>; 
case  CH  of 

#32.. #126  :  {regular  characters! 

begin 

if  (TEXTLINE  >  ENOSCROLL)  and  OKAY__TO_CHAT  then 
begin 

USEDFILE  :=  true; 

if  WQRDPROCC TEXTLINE , XI  <>  chr (32)  then  begin 
TEMPCH1  :=  CH; 
for  K  :=  X  to  50  do  begin 

TEMPCH2  : =  WORDPROC  C  TEXTL I NE , K ] ; 

WORDPROC C TEXTL I NE,K 3  :=  TEMPCH1; 
gotoxy <K. TEXTLINE) ; 
write(W0RDPR0CCTEXTLINE,K3) ; 

TEMPCH 1  :=  TEMPCH2; 
end;  {for  K=X  to  50! 
end  {if  WORDPROC  <>  chr <32)1 
else  begin 

WORDPROC C TEXTLINE, XI  :=  ch; 
write  <ch ) : 
end;  {else! 

X  s=»  X  +  1; 

if  TEXTLINE  >  LASTLINE  then 
LASTLINE  ;=  TEXTLINE; 
end;  {if  TEXTFILE  >  ENDSCR0LL1 
if  (TEXTLINE  >  ENDSCROLL)  and  not  < OKAY  TO  CHAT ) 
then  begin 
cl rscr ; 

textcolor (31 ) ;  textbackground (0) ; 
gotoxy (6,4) ; 


write('  CHATTERBOX  IN  USE  -  Word  processing 
gotoxy (6,5) ; 

write('  not  available  at  this  time, 

gotoxy (6,6) ; 

write('  Press  any  key  to  continue 

textcolor ( 15) ;  textbackground (4) ; 
repeat  until  keypressed; 
gotoxy  (1,1); 

textcolor  < 1 ) ;  textbackground ( 12) ; 
write  ( ' WORDPROCESS I NG  SECTION'); 
textcolor (15) ;  textbackground (4) $ 
gotoxy (40, 1 ) ; 
write  ( 'LINE  #:  82 ' > ; 

TEXTLINE  s-  82; 

Y  9; 

FILLSCREEN  (TEXTLINE  -  6); 
end;  Cif  (TEXTLINE>ENDSCROLL) > 
snd;  Cease  #32-#126> 

i  CBACKSPACEJ 

legin 

if  X  >  1  then  begin 
X  s-  X  -  1; 
gotoxy (X, Y)  ; 

for  J  :=»  X  to  49  do  begin; 

WORDPROCC TEXTLINE, J]  :» 

WORDPROCC TEXTLINE, J+l 3 ; 
wri te (WORDPROCC TEXTLINE, J3 ) ; 
end;  Cforl 
end;  Cif  X>1> 

WORDPROCC TEXTLINE, 50 3  s»  chr(32); 
gotoxy (50, Y) ; 

wri te( WORDPROCC TEXTLINE, 503 ) ; 
snd;  Cease  #8} 

s  CTAB  kev> 

Degin 

X  s*  30; 
snd;  Cease  #9J 

5:  C RETURN  key) 

Degin 

if  Y  <  9  then  begin 

Y  :  =  Y  +  1  s 
X  s*  1; 

TEXTLINE  s*  TEXTLINE  +  1; 
end  Cif  Y<93 
else  begin 

if  TEXTLINE  <123  then  begin 
TEXTLINE  ;=  TEXTLINE  +  1; 

FILLSCREEN (TEXTLINE  -  6); 

X  :  =  1; 

end  Cif  TEXTLINE  <123> 
el  se 

sound (800) ; del  ay (50) ; nosound ;  {Too  far  down 
end;  Celsel 

if  TEXTLINE  >  LASTLINE  then 
LASTLINE  s=  TEXTLINE; 


(ESCAPE  key} 


end)  (#13  case} 

#27* 
begin 

read  (kbd,CH); 
case  CH  o-f 
#59  : 

begin  (F-l  key  -for  help} 

SCROLLBOX (8,4,53,  B) ; 
ttxtcolor ( 15) ;  tex tbackground (4) ; 
window (26, 13,76,21); 

(NOTE:  after  scroll box  is  called,  color  and 

window  must  be  reinitialized  by  the 
originating  program} 
end; 

#61  : 
begin 

SCROLLBOX  (4,4,50,  A  ) ; 
textcolor ( 15) ;  tex tbackground <4> ; 
window (26, 13,76,21 )  ; 

(NOTE:  after  scrollbox  is  called,  color  and 

window  must  be  reinitialized  by  the 
originating  program} 
end; 

#68  :  ENDRUN  :■  true;  (Key  F-10  to  quit  } 

#72  :  CUP  arrow  kev) 

begin 

if  Y  >  3  then  begin 

Y  :«  Y  -  1; 

TEXTLINE  I-  TEXTLINE  -  1; 
end  (if  Y>1> 
else  begin 

if  TEXTLINE  >  1  then  begin 
TEXTLINE  *-  TEXTLINE  -  1; 

FILLSCREEN  (TEXTLINE); 
end  £if  TEXTLINE >1 } 
el  st» 

sound (2800) ; del  ay (50) ; 
nosound;  (Too  far  up} 
end;  (else} 
end;  (#72  case} 

#80  :  (DOWN  arrow  key} 

begin 

if  Y  <  9  then  begin 

Y  :*  Y  +  1; 

TEXTLINE  :=*  TEXTLINE  *  1; 
end  (if} 

else  begin 

if  TEXTLINE  <  123  then  begin 
TEXTLINE  :=  TEXTLINE  +  1; 

FILLSCREEN  (TEXTLINE  -  6); 
end  Cif  TEXTL INE< 123} 
el  se 

sound ( 800) ; del  ay (50) ; 
nosound;  (Too  far  down) 
end;  (else) 
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if  TEXTLINE  >  LASTLINE  then 
LASTLINE  TEXTLINEf 
end;  {#80  case) 

#77  5  {RIGHT  arrow  key 

begin 

if  X  <  50  then  begin 
X  !■  X  ♦  lj 
end  {if! 

else 

sound (2000) ; delay (50) ; 
nosoundj  {Too  far  right! 
end)  {#77  case! 

#75  i  {LEFT  arrow  key! 

begin 

if  X  >  1  then  begin 
X  «»  X  -  1; 
end  {if! 

else 

sound (1200) } del  ay (50) ; 
nosound;  {Too  far  left! 
end}  {#75  case! 

#83  s  {DELETE  key! 

begin 

if  TEXTLINE  >  ENDSCROLL  then  begin 
for  J  s*  X  to  4.9  do  begin 
W0RDPR0CCTEXTLINE.J1  :* 

WORDPRQC ITEXTLINE, J+l 1 ; 
wr i te ( WORDPROC C TEXTL I NE f J 1 ) } 
end}  {for! 

UORDPROCCTEXTLINEf501  1-  chr (32) } 
gotoxy (50, Y) } 

write(WORDPROCCTEXTLINE,50!) 5 
end;  {if  TE X TL I NE >ENDSCROLL ! 
end;  {#83  case! 

#73  s  {PG  UP  key! 

begin 

if  TEXTLINE  >  7  then 

TEXTLINE  s*  TEXTLINE  -  7 
else  begin 

sound (2800) } del  ay (50) ; 
nosound;  {Too  far  up! 

TEXTLINE  :-l; 

Y  i»  3; 
end;  {else! 

F I LL3CREEN< TEXTLINE  -  Y  -  3)  ; 
end;  {#73  case! 

#81  s  {PG  DN  key! 

begin 

if  USEDFILE  or  NEWENTRYSEEN  then 
STOP  s*  123  else  STOP  s-  82; 
if  TEXTLINE  <  (STOP-7)  then 
TEXTLINE  8  —  TEXTLINE  7 
else  begin 


if  STOP  -  123  than  bag in 
sound (800) y del  ay (50) y 
nosound;  {Too  far  down} 
and i  Cif  STOP- 123) 

TEXTLINE  :»  STOP; 

Y  *-  9y 
and;  (alia) 

F I LLSCREEN (TEXTLINE  -  Y  +  3) ; 
and;  {#81  casa} 

#71  :  {HOME  key) 

begin 

TEXTLINE  s-  ly 

Y  i-  3y 

FILLSCREEN  (TEXTLINE) y 
and;  {#71  casa> 

•79  i  {END  key) 

bagin 

if  USEDFILE  than 

TEXTLINE  ;«  LASTLINE 

alsa 

TEXTLINE  :«  82; 

Y  *-  9; 

FILLSCREEN  (TEXTLINE  -  6); 
and;  {#79  casa) 
and;  Cease  CH) 
and;  {#27) 
and;  (casa  CH  of) 

*  *  *  WORD  WRAP  PORTION  OF  THE  WORDPROCESS I NG  ROUTINE  *  *  * 

•  At  tha  and  of  tha  line,  if  tha  utar  is  still  typing,  * 

•  this  saction  causas  tha  lina  to  wrap  around  to  tha  next  * 

*  lina.  * 


if  (X  >  50)  and  (TEXTLINE  <  123)  and  (TEXTLINE  >  81) 
than  bagin 
X  :«  50; 

if  WORDPROCC TEXTLINE, X3  <>  chr<32)  than  begin 
Ctast  last  char  in  lina  for  ) 

{blank  > 

whila  WORDPROC C TE X TL I NE ,  X  3  <>  chr (32)  do  bagin 
X  i-  X  -  ly  (ra sat  X  to  pos  of  last  blank  ) 
and;  (whila) 

for  M  :*  (X  1)  to  50  do  begin 

WORDPROC  (  TEX^L  I NE-*  l  ,  fl-X  3  ;  -  WORDPROC  C  TEX  TL  I  NE .  M I ; 

(move  tha  char  to  correct  ) 
gotoxy<M,Y>;  (array  pos  > 

WORDPROC CTEXTL I NE,M)  chr (32); 

write (WORDPROCC TEXTLINE, M3) ;  (erase  word  from  end 

of  lina) 

if  Y  <  9  than  begin 
got  ox  y  (M-X  ,  Y-*-l  )  ; 

wr  i  t  a  ( WORDPROC  C  TEX  TL  I  NE-*- 1  ,M-X3) ; 

{write  word  at  front  of  new  line) 
and;  (if) 


and)  (for> 

X  »-  (M— X )  >1| 

•nd 

•1m 

X  i-  1) 

TEXTLINE  i-  TEXTLINE  ♦  If 
if  V  <  9  than 

Y  i-  Y  +  1 
•1m  bagin 

Y  *-  4| 

FILL SCREEN  (TEXTLINE  -  l)f 
mound  (2800)  f dal ay  (50)  |  nomound) 
mound (800) | dal  ay (30) | nomound f 
mound ( 1200) | dal  ay (50) ) nomound f 
mound (2000) f dal  ay (50) inomoundf 
and)  (alma> 
and  Cif> 
until  ENORUN) 

*  *  *  SAVE  FILE  PORTION  ****************** 

*  At  tha  and  of  tha  Mordproctmsing  mammion,  tha  fila  xs  * 

*  mavad  by  moving  all  taxt  linam  to  tha  and  of  tha  fila  • 

*  mo  thay  can  ba  raadjumtad  whan  tha  fila  is  next  ooanaa .  * 

*  A  data/tima/signatura  lina  im  addad  at  tha  and  of  aach  • 

*  samsion  to  identify  it.  * 


if  USEDFILE  or  NEWF1LE  than  bagin 
clrmcr | 

taxt col or ( 15) f  tax tbackground (0) | 
got ox y ( 13,3) | 

writaC  SAVING  CHATTERBOX  FILE  )) 
if  USEDFILE  than  bagin 

LASTLINE  :■  LASTLINE  2:  i.<i»aka  room  for 

data/tima  line  I 

for  I  *■  1  to  3  do  (save  user  name  in 

hidden  fila  1 

WORDPROCC (LASTLINE) ,( I +30) 1  copy (USERNAME , I , 1) : 

if  ANONIMITY  =  A  than 

TEMPLINE  i-  WR I TEDATE (****• ) 

al  sa 

TEMPLINE  s-  WR I TEDATE (USERNAME) f  (gat  data/time  line 

f  or  file! 

for  J  : *  2  to  49  do 

DATE-INEcJJ  :=  copy  <  TEMF L I NE , J , i J : 
for  J  *=  2  to  49  ao 

WORDPROC  C (LASTLINE) ,J3  i*  (DATELINEC J  3 ) ; 
end;  (if  USEDFILE  and  not  NEWFILE1 

SAVEFILE  :» 

concat (FILEDRIVE,  : ' . PROBF ILE , ALTERNAT I VE , 
assign  < TEXTF ILE , 3AVEF ILE >  ;  Copen  SAvEFILE  sna 


if  NEWFILE  than 

rewrite  (TEXTFILE) 

•Isa  bag in 
C*I-> 

append  (TEXTFILE); 

{#I+> 

1 f  IOrasul t  <  >  0  than 
retar  i  te  (TEXTF  ILE) i 
and;  (else) 

for  J  i ■  81  to  LASTLINE  do  bagin 
for  K  »■  1  to  S3  do 

TEHPARRAYCJO  *-  NORDPROCC J ,K 3 | 
SAVELINEC J-00]  i-  TEMP ARRAY; 
and |  (for  J  «-  81  to  LASTLINE> 

for  J  i*  81  to  LASTLINE  do  bagin 
tar  i  tal  n  ( TEXTFILE  ,  SAVELI  NEC  J-083 ) ; 
and;  {for  J> 
cl osa (TEXTFILE) ; 


*  *  USER  FILE  UPDATE  •  ••••••••••»••• 

This  saction  updatas  tha  fil#  containing  the  name  of 
tha  last  user  of  tha  chatterbox. 


CHATRFILE 

concat (FILEDRIVE,  : ' , PRCBF ILE . ALTERNATI VE . 
assign (CHECKF ILE, CHATRFILE) s 
ratar  i  t a  ( CHECKF I LE )  ; 
tar  i  t a  ( CHECKF I LE ,  PERSNAME  )  | 
cl osa (CHECKF ILE); 

»nd|  (if  USEDFILE) 


::q); 


*  *  *  IN-USE  FLAG  UPDATE  ************* 

*  This  section  updates  the  file  indicating  that  the 

*  chatterbox  file  is  available  for  use. 


if  OKAY  TO  CHAT  then  begin 
CHATRFILE  :» 

concat (FILEDRIVE,  : ' ,PROBF ILE, ALTERNATI VE, 
assign (CHECKF ILE, CHATRFILE) ; 

USERFILE  i-  concat (  C' ,ANONIMITY> ; 
reiar  i  te  (CHECKF  ILE )  ; 
write (CHECK FILE. USERFILE) ; 
close  ; CHECK FILE) ; 
end;  lif  OKAY  TO  CHAT) 


. zz w ' ) 


•  *  *  RETURN  TO  NORMAL  ROUTINE  ************** 

•  Cltart  the  chatterbox  xindoM  and  rwritvi  the  screen  * 

•  portion  that  was  saved  ehen  chatterbox  Mas  invoked.  • 


Mindow  <23,12,78,22)* 
clrscr * 

wi ndOM  <1,1,80,23)1 

MR I TE SCREEN  (23,12);  Cerite  previous  screen  back' 
end*  (procedure  CHATRBOX) 


I3i 


<FILTER6. LIB3 


procedure  NtwNumber (v*r  Names  :  CritArray;  Limmit  : 

Integer ) ; 

( **********************#*•**•****•#■***■*•***•*•#■*•*•*■**■#*•**■**•#**•#■#■■*■** 


* 

PROCEDURE 

• 

• 

NEWNUMBER 

* 

* 

SUPPORTS  PROGRAM 

a 

CTOUCH. PAS 

# 

» 

LOCAL  VARIABLES 

i 

FLAG 1 RENUMBER ,  FLAG2RENUMBER , 

* 

• 

FLAG3RENUMBER 

* 

• 

GLOBAL  VARIABLES 

s 

TRACK 1 ,  LIMMIT,  NAMES,  L,  M,  N, 

* 

• 

PROBLEMFLAG 

* 

• 

ARRAYS  USED 

a 

a 

CRITARRAY 

* 

# 

FILES  ACCESSED 

t 

KRITERIAFILE 

* 

• 

EXTERNAL  CALLS 

• 

a 

NONE 

* 

# 

EXTERNAL  FILTERS 

a 

a 

NONE 

* 

• 

CALLED  FROM 

a 

a 

LOADARRAY,  NEWWRITE,  CHANGERECORD 

* 

* 

PURPOSE 

a 

a 

RENUMBERS  EVERYTHING  IN  THE  EVENT 

*■ 

• 

THAT  A  RECORD  HAS  BEEN  DELETED  OR 

» 

# 

IF  THE  USER  IS  AT  THE  POINT  WHERE 

* 

• 

HIS  FILE  HAS  BEEN  MERGED  WITH 

» 

» 

OTHER  COMMITTEE  MEMBERS 

» 

#*■*  **-***■*■*•*•*-*  ♦♦■♦-a*****-******-*-**-#**#****#*-****-*'***-**-***-**-#-* ) 


var 

FLAG 1 RENUMBER,  FLAG2RENUMBER ,  FLAG3RENUMBER  :  INTEGER; 
begin  CNewNumber} 

reset  (knteriaf  ile)  ; 

i  *•  f  ilesizeikriteria^ile)  0  then 
begin  Cif  f llesize) 

Track  1  : =  1;  FI aq lReNumber  :  =  0; 

repeat 

NamesCTrack 1 3 . StatFl ag  :=  problemFlag; 

case  namesCTrack 1 3 . f 1 ag 1  of 

1..1U0  :  begin  CInside  case  r  i  aq  i  ’ 

it  namesCTrack 1 j . f 1 ag2  *  0 
then 
begi  n 

{Renumbering  o-f  Major  Criteria^ 
FI ag lReNumber  := 

FI  ag  1  ReNumoer  1; 
names L Track  1 ]. F 1 ag 1 
Fi ag lReNumber ; 

FI agZReNumber  :=  0; 

FI ag3ReNumber  :=  0; 


end;  {Renumbering  of 
Major  Criteria} 

case  namesCTrackl 3 . f lag2  of 

1..100  :  begin  {Inside  case  flag2> 

if  namesCTrackl 3 . flag3  =  0 
then 

begin  {Renumbering  of 
Sub  Criteria! 

FI ag2ReNumber  : = 
Flag2ReNumber  +  1; 
namesCTrackl 3 . flagl  : 

FI aglReNumber ; 
namesCTrackl 3 . flag2  : 
FI ag2ReNumber ; 
end;  {Renumbering  of 
Sub  Criteria} 


case  namesCTrackl 3 . f lag3  of 

1..100  :  begin  {Inside  case  flag3> 

FI ag3ReNumber  : - 
FI ag3ReNumber  +  1 ; 
namesCTrackl 3. flagl  :* 

FI ag 1 ReNumber : 
namesCTrackl I . f lag2  : = 

FI ag2ReNumber ; 
namesCTrackl 3. flag3  : = 

FI ag3ReNumber ; 
end;  {Inside  case  flag3} 

end;  {case  statement  flag3> 

end;  {Inside  case  flag2} 

end;  {case  statement  flag2} 

end;  {Inside  case  flagll- 

end;  {case  statement  flagl} 

1  :*  NamesCTrackl I. Flagl  *  100; 
m  s*  Names L Track  1 }. FI ag2  *  10; 
n  :=  NamesCTrack 1 } . FI ag3; 

Names C Track  1 3 . Checkpoint  ;=  i  +  m  +  n; 
Trackl  :*  Trackl  +■  1; 

until  Trackl  «  Limmit; 


end;  {if  files izel 


close (kriterxafile) ; 


CNewNumber } 


procedure  Switch (Var  STU1,  STU2  s  CriRec) ; 
var 

TEMPSTU  i  Crirec; 
begin  (Switch! 

Tempstu  : =  Stui;  Stul  :=  Stu2; 

Stu2  :=  Tempstu; 
end;  (Switch! 


procedure  CritSort<var  Names  i  CritArray;  limmit  : 
integer) ; 


(*******************«*****#*********««*#*****##****•»******** 


* 

PROCEDURE 

CRITSORT 

* 

# 

SUPPORTS  PROGRAM 

CTOUCH . PAS ,  FLAGSET. PAS 

* 

« 

LOCAL  VARIABLES 

NOEXCHANGES,  FURST,  PASS,  LIMID 

* 

* 

GLOBAL  VARIABLES 

LIMMIT,  NAMES 

* 

* 

ARRAYS  USED 

CRITARRAY 

* 

* 

FILES  ACCESSED 

NONE 

* 

* 

EXTERNAL  CALLS 

SWITCH 

* 

* 

EXTERNAL  FILTERS 

NONE 

* 

* 

CALLED  FROM 

ALLTOGETHER,  LOADARRAY,  NEWWRITE 

» 

* 

PURPOSE 

THIS  PROCEDURE  DOES  A  NUMERIC  SORT* 

* 

THAT  KEEPS  ALL  MAJOR  CRITERIA  AND 

* 

* 

SUBSETS  OF  EACH  MAJOR  CRITERIA 

* 

* 

TOGETHER.  THE  SDRT  IS  MADE  ON  THE* 

* 

CHECKPOINT  PORTION  DF  THE  RECORD 

* 

* 

'CRIREC'. 

* 

♦♦♦♦•♦♦♦♦-a-*#***#*****#************************************) 


var 

NOE X CHANGES  s  BOOLEAN; 

FURST,  PASS,  LIMID  :  INTEGER; 

begin  CCritSort! 

limid  i=  limmit  —  1;  Pass  : =  1; 
if  limid  >  1  then 
begin 

repeat 


Noexchanges  :=  True; 

for  Furst  :*  1  to  limid  -  Pass  do 

if  (Names (Furst!. checkpoint  >  NamesCFurst  + 
1 3. checkpoint )  then 


begin  (Exchange! 

Swi tch (NamesCFurst 3 ,  NamesCFurst  +  13) 
Noexchanges  : x  False; 


{Exchange} 


end; 

Pass  : =  Pass  +  1 ; 

until  Noexchanges; 
end; 

end;  {CritSort} 


procedure  Bubbl eSort ( var  Names  :  CritArray; 

Limmit  s  integer); 


( ********#**********#********#**###******************-»*****•» 


* 

PROCEDURE 

BUBBLESORT 

* 

* 

SUPPORTS  PROGRAM 

CTOUCH . PAS,  FLAGSET . PAS 

* 

* 

LOCAL  VARIABLES 

NOEXCHANGES,  FURST,  PASS,  LIMID 

* 

* 

GLOBAL  VARIABLES 

LIMMIT,  NAMES 

* 

ARRAYS  USED 

CRITARRAY 

* 

* 

FILES  ACCESSED 

NONE 

* 

* 

EXTERNAL  CALLS 

SWITCH 

» 

* 

EXTERNAL  FILTERS 

NONE 

* 

* 

CALLED  FROM 

ALLTOGETHER 

» 

* 

PURPOSE 

THIS  PROCEDURE 

DOES  AN  ALPHA  SORT 

* 

* 

THAT  FLAGS  ALL 

DUPLICATE  MAJOR 

* 

* 

CRITERIA  BY  PLACING  A  0  IN  THE 

» 

* 

FLAG1  PORTION 

FO  THE  RECORD 

* 

* 

CRIREC' 

* 

**»*****«*#***#*#***4HHt*«***«*#*«*************«-*««*-»***«-»*) 


var 

NOEXCHANGES  :  BOOLEAN; 

FURST,  PASS,  LI MID  :  INTEGER; 

begin  CBubbl eSort > 

limid  ;=  limmit  -  1;  Pass  ;=  1; 

if  limid  >  1  then 
begi  n 
repeat 

Noexchanges  ;=  True; 

far  Furst  ;=  1  to  Limid  -  Pass  do 

if  ( Names CFur st J. Cri tname  > 

NamesCFurst  +  13. cri tname)  then 
begin  {Exchange} 

Switch (NamesCFurst 3 ,  NamesCFurst  +  13); 
Noexchanges  :=  False; 
end;  {Exchange} 

Pass  :=  Pass  +  1; 


until  Noexchanges 


CBubb 1 eSort  3- 


end; 
end; 

procedure  Odometer; 


(******************#*#***********#***********************"*** 


* 

PROCEDURE 

ODOMETER 

* 

* 

SUPPORTS  PROGRAM 

CTOUCH 

* 

* 

LOCAL  VARIABLES 

NONE 

* 

* 

GLOBAL  VARIABLES 

ALTERNATIVE,  PROBLEMFLAG 

* 

* 

ARRAYS  USED 

NONE 

* 

* 

FILES  ACCESSED 

NONE 

* 

* 

EXTERNAL  CALLS 

NONE 

* 

* 

EXTERNAL  FILTERS 

NONE 

* 

* 

CALLED  FROM 

LOADARRAY,  INITVARI ABLES , 

WIND0W3 

* 

* 

PURPOSE 

THIS  PROCEDURE  WRITES  TO 

THE 

* 

* 

BOTTOM  OF  THE  SCREEN  TELLING  THE 

# 

# 

USER  AT  WHAT  STAGE  HE  IS 

IN. 

«■ 

***************************************************-*#-*****) 


begin  {Odometer 3 

ptl  :=  1;  pt2  :=  1;  pt3  ;=  78;  pt4  :=•  25; 
window (ptl ,pt2,pt3,pt4) ; 
textbackground (red)  ; 

case  ProblemFlag  of 

'a'  s  i-f  alternative  =  'A'  then 
begin 

gotoXY ( 16,24) ;  write('  Input  '); 

end 
el  se 

begin 

gotoXY (2,24) ;  write( ‘  Major  '); 
end; 

'b'  :  if  alternative  =  'C'  then 
begin 

gotoXY (9,24) ; 
write<‘  Sub  Criteria  '); 
end; 

'c'  :  if  alternative  =  ' C '  then 

begin 

gotoXY (23,24) ; 

write('  Tertiary  Criteria  '); 
end; 

'h'  :  if  alternative  =  'A'  then 

begin 

gotoXY( 16,24) ;  write('  Input  '); 
gotoXY (32,24) ;  write? '  Holding  '); 

end 


write('  Tertiary  Criteria  '); 
gotoXY <49, 24) ;  write('  Holding  '); 
end; 

'o'  :  if  alternative  =  'C'  then 
begi  n 

gotoXY (23,24) ; 
write('  Tertiary  Criteria 
gotoXY (5S,24) ; 
write<‘  Review  Criteria  '); 
end; 

'p'  :  if  alternative  =  'C'  then 
begin 

gotoXY (23,24) ; 

writer  Tertiary  Criteria  *); 
gotoXY (42,24)  ;  write('  Final  '); 
end; 

'z '  :  if  alternative  =  'A'  then 
begin 

textbackground (blue)  ; 
gotoXY (2,24) ;  clreol; 
gotoXY (31, 24) ; 
textbackground (red) ; 
write('  Input  Completed  '); 

end 
el  se 

begin 

gotoXY (42,24) ;  writet'  Final  '); 
gotoXY (SB, 24) ; 
write('  Completed  '); 

end; 

end;  CCase  Statement! 
textbackground (blue) ; 

ptl  :=  2;  pt2  :=  2;  pt3  : =  77;  pt 4  : =  21; 
window (ptl ,pt2 ,pt3, pt4)  ; 


end; 


COdometer! 


(  ***#*****#**##*#****#*******«******-»-»•»**-»*•»***-»*#-»***«-***«- > 
FILE  :  FILTER7. LIB  <  ) 

WRITTEN  BY  :  Mike  Neeley  it  Bob  Wooldridge,  May, 36 
PURPOSE  :  Procedure  library  for  TOUCHSTONE  (COOP 

Criteria  Filter  Program)  written  as  a  part 
of  a  thesis  for  a  Master  of  Science  in 
Computer  Systems  Management,  Naval 
Postgraduate  School,  Monterey,  California 
CONTENTS  :  ENCODE,  DECODE,  INTROSCREEN 
CHANGESTATUS ,  CHANGECQDE 

(  ************4Ht«********#******#****«-*«-«at****#*#*-»*-K-****-»**  ) 

PROCEDURE  :  ENCODE 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 96 
PURPOSE  :  Encodes  user  name  and  user  ID  for  filing 

PARAMETERS  :  input:  NAMECODE  :  arrayC1..83  of  char; 
EXTERNAL 

NEEDS  :  none 

(  *«****#****#*****************##****4Ht******-»*«--»*"»*«--»*##*«-«-  ) 

function  ENCODE (NAMECODE  :  CODEARRAY)  :  CODEARRAY: 


TEMPCODE  :  array C 1 . . 121  of  char; 

I  :  integer; 

begin 

for  I  :=  1  to  12  do  begin  (change  input  to  all 

caps  and) 

if  NAMECODEC I  3  in  C'a'..'z'3  then  (delete  non— 

1 etters) 

NAMECODEC 1 3  :=  chr (ord (NAMECODEC I ) >  -  32); 
if  not  (NAMECODEC II  in  C'A'..'Z','*'3)  then 
NAMECODEC I  3  :=  chr (32); 
end;  Cfor  13 

(encode  all  charters  into  code) 
for  I  :=>  1  to  12  do 

TEMPCODE C I  3  :=  chr (ord (NAMECODEC I  3 )  +  (97+1)); 

ENCODE  :=  TEMPCODE: 
end:  (procedure  ENCODE) 


( *##♦*#****###**########**#*###*###■»#•»##*■»*#*#*##***####*#* ) 
PROCEDURE  :  DECODE 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 86 
PURPOSE  :  Decodes  user  name  and  user  ID  from  file 

PARAMETERS  :  input:  NAMECODE  :  arrayC1..33  of  char: 
EXTERNAL 

NEEDS  :  none 

(  *##*######**#**##*##-»***#*##****4##***#**#-»**###*##-»*##4**  ) 


■function  DECODE  ( NAMECODE  :  CODEARRAY)  :  CODEARRAY; 
var 

TEMPCODE  :  arrayC1..123  of  char; 

I  :  integer; 

begin 

{decode  all  charters  from  code! 
for  I  s*  1  to  12  do 

TEMPCODE C I  3  s*  chr (ord (NAMECODEE I  3  >  -  (97+1) >; 

DECODE  s*  TEMPCODE; 
end;  {procedure  DECODE! 


( »*******************#*******«-*##*#*********«-*«  it-**#-**##**** ) 

PROCEDURE  :  INTROSCREEN 

WRITTEN  BY  ;  Mike  Neeley  St  Sob  Wooldridge,  May ,86 

PURPOSE  :  Draws  the  box  for  the  various  introductory 

and  menu  screens 
PARAMETERS  s  none 
EXTERNAL 

NEEDS  :  Include  file  FILTER1 . LIB 

(  ******4MHt##«^#****#******************'»**##*****-*"***"*-»*#'*-»*  ) 

procedure  INTROSCREEN; 

begin  {procedure  INTROSCREEN! 

textbackground (blue) ;  textcolor (white) ; 
wi ndow (1,1,80,25); 
clrscr ; 

BASICBOX (5,3,75,22) ; 
got ox y (30,3) ; 

textbackground (red) ;  textcol or (yel 1 ow) ; 
write  (‘  TOUCHSTONE 

textbackground (blue) ;  textcolor (whi te) ; 
wi ndow (12,5,73,20) ; 

ptl  : 3  12;  pt2  :=  5;  pt3  :=  73;  pt4  :=  20; 
end ; 

( ***************************«*****'»******##******-»-»****-»***) 
PROCEDURE  ;  CHANGESTATUS 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May,B6 
PURPOSE  ;  Change  the  status  of  invocators/commi ttee 

members  and  add/delete  persons;  change 
problem  invocator  password 
PARAMETERS  ;  none 
EXTERNAL 

NEEDS  :  none 

( ***********#***#******#*##*********##******###•*•■#-**#**■«■*•#•■** ) 
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■v.y.  <v 


vlvlvlv. 


procedure  CHANGESTATUS; 


var 

NAMEOK ,  I OCHECK , 


CONTINUE,  CHANGE 

X,  COUNTER,  k,  L, 
LASTLINE 

CH 

WORKFILE 

NAMESTRING 

CHECKFILE 

MASTER 

CHECKNAME 

:  boolean; 

:  integer; 

:  char; 

:  text; 

:  stringC33; 
s  stringC143; 
s  stringC173; 

:  array  Cl.. 33 

of 

char ; 

CHECKCODE 

:  array  Cl.. 83 

of 

char; 

CODEMASTER 

s  arrayCl..S53 

of 

char ; 

CODENAME 

:  array Cl.. 853 

of 

stringC33; 

CODEWORD 

s  array C1..S53 

of 

stringC83 ; 

SAVELINE 

:  arrayCl . . 853 

of 

stringC 123 

TEMPLINE 

s  CODEARRAY; 

procedure  HELPKEY; 
(puts  up  helpscreen 

if  called! 

var 

X,  Y 

:  integer; 

begin 

read  <kbd,CH) ; 
case  CH  of 

#59  :  begin 

{  FI  > 

X  :  = 

wherex ;  Y  : =  whe 

Scroll Box ( 1 2, 8, HELPS I ZE, HELPER) ; 
window (ptl , pt2,pt3,pt4)  ; 

textcolar (white) ;  tex tbackground (blue) 
gotoxy  <X,Y) ; 
end;  {  FI  } 

end;  (CH! 

end;  (procedure  CHI 
procedure  GETANS; 

(solicits  an  answer  -From  the  user! 

begin 

repeat 

read (kbd ,  CH) ; 
if  CH  =  #27  then 
HELPKEY; 

if  CH  in  C 'a  ' .  .  'z  '  3  then 
CH  :=  chr (ord (CH) -32)  ; 
until  CH  in  C ' A ' . .  '  Z  '  ,  '  ',#131; 

end;  (procedure  GET ANSI 
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procedure  GETANSWER  (A,8,C,D  :  char); 
{solicits  an  answer  from  the  user) 

begin 

repeat 

read ( kbd ,CH) ; 
if  CH  =  #27  then 
HELPKEY ; 

if  CH  in  CA.B1  then 

CH  : =  chr Cord (CH)-32>  ; 
until  CH  in  CC,DJ; 
write  (CH) ;  del  ay (500); 
end;  {procedure  GETANSWER! 

procedure  CLEARLINES; 

{clears  lines  14  &  15! 

begin 

gotoxy  (1,14);  clreol; 
gotoxy  (1,15);  clreol; 
end;  {procedure  CLEARLINES! 


begin  {procedure  CHANGEST ATUS1 

{put  information  on  screen! 

INTROSCREEN; 

if  SELECTED  =  1  then  begin 
gotoxy ( 13,2) ; 

write  ( ' INVOCATOR  MASTER  CODEWORD  CHANGE'); 

CONTINUE  :=  true; 
end  {if  SELECTED  =  3! 
else  begin 

gotoxy ( 14,2) ; 

write  (INVOCATOR  MASTER  STATUS  CHANGE'); 
gotoxy (4,4) ; 

write  ('This  section  of  the  program  will  allow  you  to 
add ,  ' ) ; 
gotoxy (4,5) ; 

write  ('delete,  or  change  the  status  of  anv  person  you 
wish.  ' ) ; 
gotoxy (4,7) ; 

write  ('Please  enter  the  initials  of  the  individual 
you  want  ' ) ; 
gotoxy (4, S) ; 

write  ('to  add/delate/change  <0R>  press  enter  to 
return. ' ; ; 
gotoxy (21 , 10) ; 
write  ('INITIALS:  **■*'); 

X  :=  32;  COUNTER  :=  0;  CONTINUE  : =  false; 

{get  initials  of  individual! 

repeat 

repeat 

gotoxy  ( X , 1 0) ; 
read ( kbd , CH)  ; 


if  CH  ■  #27  then 
HELPKEY; 

until  CH  in  C#13,‘A'..'Z’,'a'..'z'3; 
if  CH  in  C  '  a  ' . .  '  z  '  3  than 
CH  *-  chr (ord (CH) -32) ; 
write(CH) ; 

X  j«  X  +  1; 

COUNTER  s»  COUNTER  +  1; 
if  CH  in  C  '  A  ' .  . ' Z ' 3  then 
CONTINUE  :«  true; 
if  CONTINUE  then  begin 

CHECKNAMEC COUNTER 3  *«  CH; 
if  CH  ■  #13  then  begin 
for  L  *-  COUNTER  to  3  do 
CHECKN  AliE  C  L  3  s-  *  '; 

COUNTER  3; 
end;  {if  CH-#13! 
end;  (if  continue! 
until  (CH  *  chr  (13))  or  (COUNTER  =*  3)  ; 

{check  initials  for  reserved! 

NAMESTRING  s-  CHECKN AME; 

if  (COUNTER  *  3)  and  ((NAMESTRING  ■  ZZQ)  or 
(NAMESTRING  *  'ZZV')  or 

(NAMESTRING  *  'ZZW')  or  (NAMESTRING  *  'ZZX')  or 
(NAMESTRING  -  'ZZY')  or  (NAMESTRING  =  ZZZ')>  then 
begin 

CONTINUE  :=*  false; 

sound (4000) ; delay (500) ; nosound; 

gotoxy ( 14,14); 

write!  SORRY,  THESE  INITIALS  RESERVED!'); 
delay (2500) ; 
end;  Cif  C0UNTER=3! 
end;  {else/ if  SELECTED*5 1  ! 

{put  all  initials  on  file  into! 

{an  array! 

if  CONTINUE  then  begin 

CHECKFILE  :=  concat (FILEDRIVE, TOUCH. ZZV ') ; 

{read  file! 

assign (WORKF I LE, CHECKFILE) ;  {Get  file  of  codes 

{$1—! 

reset  (WORKF I LE) ; 

{*I+! 

if  IOresult  =  0  then  begin 
IOCHECK  :=  true; 

LASTLINE  : =  1; 

{Read  file  and  assign  parts  of 
file  to  code  information! 

while  (not  eof  (WORKFILE) )  and  (LASTLINE  <  170)  do 
begin 

read In  ( WORKF I LE, SAVELI NEC LASTLINE I ) ; 

TEMPLINE  :=  DECODE (SAVELINECLASTLINE3 ) ; 

CODEMASTER CLASTLINE 3  ;=  copy  (TEMPLINE, 1 , 1 ) ; 
CODENAME CLASTLINE 3  :=  copy  (TEMPLINE , 2 , 3 > ; 


CODEWORD CLASTLINE 1  *-  copy  (TEMPLINE, 5,8) ; 
LASTLINE  LASTLINE  +  1; 
end;  {while  not  eof } 

LASTLINE  :*  LASTLINE  -  If 
end  {if  IOresult! 
else  begin 
clrtcr ; 
gotoxy (8.8) ; 

write  ('SORRY!'  FILE:  "TOUCH. ZZV”  IS  NOT  ON  DISK 
* ,FILEDRIVE) ; 
gotoxy (6, 10)  ; 

write  CP LEASE  REPLACE  NECESARY  FILE  BEFORE 
CONTINUING! ! * ) | 

sound ( 600 ) ; del  ay  <  300 ) y  nosound {delay  ( 5000 ) ; 

IOCHECK  false; 
end;  {else! 
close (WORKFILE)  ; 

{if  touch. zzv  is  on  disk,  conti 
if  IOCHECK  then  begin 

if  SELECTED  *  2  then  begin 
NAME _ OK  i*  false; 

CHANGE  :  =•  false; 

L  :  —  1 ; 

{check  for  namestring  in  file! 
while  not (L>LASTLINE)  and  not  NAME_OK  do  begin 
if  CODENAME  ELI  »  NAMESTRING  then 
NAME_OK  :=  true 

else 

NAME _ OK  i*  false; 

{check  user's  initials  for  match! 

L  :  =»  L  +  1 ; 

end;  {while  not  L>LASTLINE! ; 

Cif  namestring  is  in  file....! 
if  NAME_CK  then  begin 
L  :  =  L  -  1 ; 

if  CODEMASTER  CL!  =  ' M '  then 
MASTER  ;=  PROBLEM  INVCCATQR ' 

el  se 

MASTER  • —  'COMMITTEE  MEMBER'; 
gotoxy (11,12); 

write  ( ' " ' , CODENAME CL! , ' "  IS  LISTED  AS  A  ' , 
MASTER) ; 

repeat 

gotoxy  (4,14) ; 

write  ('Do  you  which  to  (C)hange  that  status 
or  (D) el ete ' ) ; 
gotoxy  (4,15) ; 

write  ('this  person  from  the  files?  * ' ) ; 
gotoxy  (34,15); 

SE7ANSWER  ('c'.'d  .'C'.'D1:; 

Cif  choice  is  to  delete  member..! 
if  CH  50  'D'  then  begin 
CLEARLINES; 


gotoxy  (4, 14) ; 

mt its  ( ' " ' , CODENAMECL] , ’ "  is  about  to  be 
deleted  from  '); 
write  ('the  files.  Do  you  '); 
gotoxy  (4, 15) ; 

write  ('wish  to  continue?  *’); 
gotoxy  (24, 15) i 
GET ANSWER  (y','n','Y','N')i 
ends  (if  CH-'D'} 
until  CH  in  [  C ' , ' Y ' . #131 ; 

(if  choice  is  to  delete  member..] 
if  CH  in  C'Y ',#133  then  begin 
gotoxy  (1,12) |  clreol; 

CLEARLINES; 

for  K  *-  L  to  (LASTLINE  -  l)do 
SAVELI NECK 3  *-  SAVELINECK+1 3 ; 

LASTLINE  x-  LASTLINE  -  1; 
gotoxy  (10,14) ; 

write  (  "  '  ,  CODENAME  CL],  '  "  NO  LONGER  HAS  ACCESS 
TO  ' )  | 

write  ('TOUCHSTONE.')! 

CHANGE  : *  true; 
end  Cif  CH} 

Cif  choice  is  not  to  delete  member..] 
else  begin 
CLEARLINES! 
gotoxy  (4,14); 

write  (DO  YOU  WANT  "  , CODENAMECL ],' "  TO  SE  A 
PROBLEM ' ) ) 

write  ('  INVOCATOR  OR  '); 
gotoxy  (4,15); 

write  ('A  COMMITTEE  MEMBER'’  (P/C)  *'); 

gotoxy (31 , 15) ; 

GETANSWER  (  ' p ' ,  ' c  .  ' P '  ,  ’ C ' )  ! 
if  ((CH-'P)  and  (CREMASTER  CL]  *  '  W  '  >  )  =r 
((CH-  C')  and  ( CODEMASTER C L 3  *  '  M  '  )  >  then 
CHANGE  ! —  true: 
if  CH  *  P'  then  begin 
CODEMASTER CL]  'M'; 
if  (C0DEW0RDCL3  -  CODEWORDC 1 ] )  then 
CODEWORD  CL3  :«  '#*******■• 

end 

el  se 

C0DEMASTERCL3  :  *  'W'; 
if  CODEMASTER CL]  =  1 '  then 

MASTER  :=  PROBLEM  INVOCATOR' 

el  se 

MASTER  :=  'COMMITTEE  MEMBER'; 
gotoxy  (1,12);  clreol ; 

CLEARLINES; 
gotoxy  (13,14) ; 

write  (  '  "  '  , CODENAMECL] ,  ' "  IS  NOW  A 
, MASTER, ' .  ) ; 

TEMPLINE  := 

concat (CODEMASTERCL] , CODENAMECL] , CODEWORDC L ]  ;  ; 


ENCODE ( TEMPL INE) ; 


SAVELINECL3  s  =* 
end; 

end  Ci  f  NAME_OK3 

{if  namestring  is  not  in  'fils..' 

•Is*  begin 

gotoxy  (10,14); 

write  < *" * , NAMESTRING, ' M  IS  NOT  ON  FILE  AT  THE 
PRESENT  TIME'): 
gotoxy  (10, 15); 

write  ('DO  YOU  WISH  TO  ADD  "  '  ,  NAMESTRING,  ' 

*'  )  ; 

gotoxy  (38,15); 

GETANSWER  (y','n‘,'Y','N'>; 
if  CH  m  'Y'  then  begin 
CLEARLINES; 
gotoxy  (2,14); 

write  ('“', NAMESTRING, ' “  NOW  HAS  ACCESS  TO 
TOUCHSTONE.  DO  '); 

write  ('YOU  WANT  “ ' , NAMESTRING, ’ “  TO'); 
gotoxy  (2,15); 

write ( 'BE  A  PROBLEM  INVOCATOR  OR  COMMITTEE 
MEMBER? ' ) ; 

writer  (P/C)  *'); 

gotoxy  (54,15); 

GETANSWER  (p','c','P,'C'>; 

LASTLINE  :=  LASTLINE  +  1; 

L  LASTLINE; 

CODENAME C  L  3  NAMESTRING* 

CODEWORD  C  L  3  s=  '  '; 

if  CH  -  P'  then 

CODEMASTER CL 3  s*  M' 
el  se 

CODEMASTER  C  L  3  :*  W'; 

TEMPLINE  := 

cone at (CODEMASTER CL 3 . CDDEN AME C L 3 , CODEWORD CL : ; . 
SAVELINE CL 3  :»  ENCODE (TEMPLINE) ; 

CHANGE  s  =*  true; 
end;  {if  CH  *  ' Y ' I 
end;  {else/ if  NAME_0K3 

{write  new  file  to  disk! 
end  {if  SELECTED  *  2> 
else  begin 
gotoxy (4,4)  ; 

write  ('This  section  of  the  program  will  allow  vou 
to  change ' ) ; 
aotox  v (4 , 5) ; 

write  ('the  Problem  Invocator  Password.  Don ' ' t 
forget  that ' ) : 
gotoxy (4,6)  ; 

write  ('you  will  need  to  inform  all  other  problem 
i nvocators ' )  : 
gotoxy (4,7)  ; 

write  ('of  the  new  Password  if  you  want  them  no 
have  access ’ ) ; 
gotoxy (4,8)  ; 


writ*  ('to  Touchstone.'); 
got ox y  (4,10); 

write  ('For  this  version  of  TOUCHSTONE,  that 
password  is: ' ) ; 
gotoxv  (19,11) ; 

write  ('***  *■**'); 

gotoxy  (23,11);  textcol or (yel low) ; 
text back ground (red) ; 
write  ('  ' , CODEWORD C 11,'  >: 

textcolor (white) ;  tex tbackground (blue) ; 
gotoxy  (4,12); 

write  ('Please  input  the  new  Problem  Invocator 
password  below:'); 
gotoxy  (23,13); 
write  ('a*******'); 
gotoxy ( 16, 14) ; 

write ( ' (Maximum  of  8  letters)'); 

X  25;  COUNTER  :-l; 

{get  user's  codeword) 
repeat  {until  COUNTER  >83 
gotoxy (X , 13) ; 

GET  ANS ; 

CHECKCODE  E COUNTER 3  :-  CH; 

if  not ( CHECKCODE C 1 3  in  C'  ',#133)  then  begin 
X  :-  X  +  1; 
write  (CH) ; 

if  CH  =»  #13  then  begin 

for  L  :*  COUNTER  to  8  do 
CHECKCODE  C  L  3  : »  '  '; 

COUNTER  :-  8; 
end;  {if  CH-4133 
COUNTER  :»  COUNTER  +  1; 
end;  {if  not  checkcode! 
until  COUNTER  >  8; 

CODEWORD C 1 3  :=  CHECKCODE: 

{if  Problem  Invocator  password  is  the  same  as  the 
Committee  Member  password,  clear  the  Committee 
Member  password! 

L  :=  2; 

while  not  (L>LASTLINE)  do  begin 

if  <  CODEWORD  C  L  3  =  CODEWORD! 1 3 )  and 
( CODEMASTER C L 3  -  'M’>  then 
CODEWORD  CL  3  :=  '•********'; 

L  :=*  L  +  l; 

end:  Cwhile  not  L>LASTLINE3 : 

gotoxy  (8,15)  ; 

write  ('NEW  PROBLEM  INVOCATOR  PASSWORD  IS: 

' , CODEWORD! 1 3 )  ; 

for  K  :=  1  to  LASTLINE  do  begin 
TEMPLINE  := 

concat ( CODEMASTER  C  K  3 , CODENAME  C  K  3  , CODEWORD  C  K 3 )  : 
SAVELINECK3  :=  ENCODE (TEMPL I NE) ; 
end;  Cfor  J) 


CHANGE  :»  trues 
ends  {else/if  SELECTED=2> 
if  CHANGE  then  begin 

assign ( WQRKF I  LE , CHECKF I LE ) : 
rewrite  (WGRKFILE) ; 
for  K  s*  1  to  LASTLINE  do  begin 
writeln  <W0RKFILE,SAVELINEEK3 ) 
ends  Cfor  J} 
c 1 ose ( WORKF I LE ) s 
ends  'if  CHANGED 
delay  <2000) $ 
end;  Cif  IOCHECtO 
end;  Cif  CONTINUED- 
clrscr ; 

end;  Cprocedure  CHANGESTATUS> 


mot 


(FILTER9. LIB} 


( *****#*•»****•»**#*-»■»•»■»*■»**•»*•****•»■»***•»**■»*■»■»#****-<*■■»••#■*■•****■»■»•♦ 


* 

PROCEDURE 

REVIEW1 

* 

* 

SUPPORTS  PROGRAM 

CTOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

NONE 

» 

» 

GLOBAL  VARIABLES 

NAMES.  LIMMIT,  CH,  COUNT.  Y, 

* 

TRACK 1 ,  NUM,  SECNUM,  THRNUM 

* 

* 

ARRAYS  USED 

CRITARRAY 

* 

* 

FILES  ACCESSED 

NONE 

* 

* 

EXTERNAL  CALLS 

NONE 

* 

# 

EXTERNAL  FILTERS 

NONE 

* 

* 

CALLED  FROM 

* 

* 

PURPOSE 

LISTS  ALTERNATIVES/CRITERIA 

* 

• 

PREVIOUSLY  INPUT,  SO  THAT  THE 

* 

* 

USER  MAY  VIEW  AND  OR  CHANGE  THE 

* 

* 

RECORDS,  DEPENDING  UPON  WHICH 

* 

* 

STAGE  HE  IS  IN. 

* 

******•»*****■»#***■»*■»■»******■»•»#•»•»■»■»**■»**■)♦■*#■)(■*•»■•»•«•■*»•■)(■■»*•»•»*****  > 


procedure  Reviewl (var  Names  :  CritArray; 

Limmit  :  Integer) ; 

begin  CReview} 

ch  : =  #32;  count  : =  1 ;  Y  :=  6; 

gotoxy (2,6) ; 

repeat 

case  NamesCTrackl J . f 1 agl  of 

1..100  :  begin  (inside  case  statement  flaql] 

if  (NamesLTracki J.f lag2  =  0)  and 
(NamesCTrackl } . Flag3  =  0)  then 

begin  (Case  If  Statement} 

num  :=  namesCtrack 1 } . f 1 ag 1 ; 
gotoxy(l,Y);  clreol j 
Wr  i te ( Num .  .  '  ) ; 

Secnum  :=  i;  Y  :  =  succ ■ v > - 
end;  (Case  If  Statement)- 

case  NamesCTrack 1 ] . f 1 aq2  of 

1 . . 1 00  :  begi n 

Cinside  case  statement  Ylag2I 

if  (NamesCTrack 1 3 . f 1 ag3  =  0)  then 


begin  {Case  If  Statement! 
gotoxy(l,Y);  clreol; 
gotoxy (3, Y) ; 

Wri te (SecNum, ' .  '); 

SecNum  :=  Succ (SecNum) ; 
ThrNum  :=  1;  Y  :=  succ (Y) 
end;  {Case  If  Statement! 

case  NamesCTrackl I . f lag3  of 

1..100  :  begin  {Case  If  Statement! 

gotoxy(l,Y);  clreol; 
gotoxy (5, Y) ; 

Wri te (ThrNum, ') .  '); 

ThrNum  : =  ThrNum  +  1 ; 

Y  :=  succ (Y) ; 

end;  {Case  If  Statement! 

end;  {Case  Statement  for  flag3! 

end;  {inside  case  statement  flag2! 

end;  {Case  Statement  for  flag2! 

Wri te  ( Names L Track  1 1 . Cr it Name ,  '  :  ' , 

NamesCTrack 11. Cri tDef ) ; 

end;  Cinside  case  statement  fiagl! 

end;  {Case  Statement  for  fiagl! 

count  : ~  count  +  1; 

Trackl  ;=  Tracki  +  1; 

until  (Trackl  =  Limmit)  or  (count  =  14); 


Reviewll 


procedure  GetTheKeys  (var  InputstringiStringarray; 

G: Integer ) ; 


<#**********##**#****4Ht*#^#*#**#^*#**"»'****-»-»*-»*'*"**-*"»'»«-*#-»*#* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

« 

* 

* 

* 

* 

* 

* 

* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 

EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


GETTHEKEYS  * 
BTOUCH. PAS,  CTOUCH. PAS  * 
HORIZONTAL,  VERTICAL,  VERTZ  * 
X,  STOPPROG,  COUNTED,  HELPSIZE,  * 
HELPER,  COUNTER  CHATOK,  FILEDRIVE,* 
PROBNAME,  NAMESTRING,  PT1,  PT2 ,  * 
PT3,  PT4 ,  INVOCATOR ,  CHT ,  TRACK 1 ,  * 
SCROLLIT  LIMMIT,  Y,  Z,  G,  * 
INPUTSTRING  * 
NONE  * 
NONE  * 
SCROLLBOX,  CHATRBQX ,  CHATRCHECK ,  * 
REV I EMI  * 

# 

* 

THIS  PROCEDURE  READS  EACH  * 
KEYSTROKE,  THEREBYE  REPLACING  ALL  * 
READLNS  THIS  ALLOWS  THE  FUNCTION  * 
KEYS  TO  BE  ACCESSED  AT  ANY  TIME  * 
DURING  THE  PROGRAM.  * 


var 

HORIZONTAL,  VERTICAL,  VERTZ  :  INTEGER; 
begin  {GetTheKeys} 

StcpProg  :=  False; 

Horizontal  : =  whereX;  Vertical  :=  whereY; 

X  :=  Horizontal; 

repeat 

tex tbackground ( Yel 1 ow) ; 
gctoXY ( X , Vert i cal ) ;  writer' 

X  : =  succ (X) ; 

until  X  =  Horizontal  +  G; 

counted  :=  0; 

gotoXY (Hari zontal . Vert i cal > ; 

for  X  :=  1  to  G  do  {initialize  the  array! 

inputstringCXl  ;=  '  '; 


repeat 


#27  :  begin 

{Escape  sequence  for  function  keys} 
read (kbd , cht ) ; 
case  cht  of 

#59  :  begin  C  FI  } 

Scrol 1 Box ( 1 2, 9, HELPS I ZE, HELPER) ; 
textbackground ( Yel low) ; 
gotoXY (Horizontal , Vertical ) ; 
for  counter  :  =  1  to  counted  do 
write (inputstringEcounter ) ) ; 
end;  f  FI  > 

#60  :  if  ChatOK  and 

(Invocator  <>  'M')  then 
begin  {  F2  } 

ChatRBox (FileDrive,ProbName, 

NameString) ; 

chatrcheck; 

window(ptl ,pt2 , pt3 , pt4) ; 
textbackground (Yellow) ; 
gotoXY (Horizontal , Vertical ) ; 
for  counter  :  =  1  to  counted  do 
write (inputstring  [counter]) ; 
end;  {  F2  } 

#61  s  if  WeedDef  and 

(Invocator  <>  'M')  then 
begin  {  F3  } 

Scroll  Box (12,11,50, '  A  ' )  ; 
window(ptl , pt2 , pt3 , pt4)  ; 
textbackground (Yel low)  ; 
gotoXY (Horizontal , Vertical )  ; 
for  counter  :=  1  to  counted  do 
write (inputstring  [counter)); 
end;  C  F3  3- 

#68  s  begin  C  F10  3 
StopProg  ;=  True; 
cht  :=  #13; 
end;  C  F10  } 

#71  ;  if  scroilit  then 

begin  [home) 

textbackground (blue) ; 
gotoxy(2,6);  Y  ;=  6; 
trackl  ;=  1; 
reviewl (names , 1 i mmi t ) ; 
trackl  ;=  1; 
gctoxy (2,6) ;  Y  ;=  6; 


is: 


AY, 


if  (wherey  =  6)  or 
(trackl  =  1>  then 
begin 

sound (5000) ; 
del  ay ( 100) ; 
nc  •  j ound; 
end; 

end;  {home) 


#72  :  if  scrollit  then 

begin  Cup  arrow) 
textbackground (blue) ; 
if  (wherey  >  6)  then 
begin 

y  s=  y  -  1; 

trackl  s=  trackl  -  1; 

gotoxy (2, y ) ; 

end; 

if  (wherey  =  6)  and 
(trackl  >1)  then 
begin 

if  trackl  >  13  then 
trackl  : =  trackl  -  13 
el  se 

trackl  :=  trackl  -  1; 
reviewl (Names, 1 immit ) ; 
gotoxy (2,6);  Y  :=  a; 
if  trackl  >  13  then 
trackl  trackl  -  13 
else 

trackl  : =  1; 
end; 

if  (wherey  =  6)  and 
(trackl  =1)  then 
begi  n 

sound (5000) ; 
del  ay ( 100) ; 
nosound ; 
end; 

end;  Cup  arrow! 


#73  :  if  scrailxt  then 

begin  Cpage  up) 
textbackground (blue) ; 
gotoxy(2,6);  Y  :=  6; 
if  trackl  >  13  then 
trackl  :=  trackl  -  17 
el  se 

trackl  :=  1; 
if  trackl  <  1  then 
trackl  :=  1; 


rev i ewl (names , 1 i mmi t )  ; 
if  trackl  >  13  then 
trackl  i=  trackl  -  17 
el  se 

trackl  :  =  1; 
if  trackl  <  1  then 
trackl  i=  1; 
gotoxy (2,6);  Y  :=  6; 
if  (wherey  =6)  or 
(trackl  =  1)  then 
begin 

sound (5000) $ 
delay  < 100) ; 
nosound; 
end; 

end;  {page  up> 


#79  :  if  scroll it  then 

begin  {end} 

gotoxy (2, 6);  Y  :=  6 
textbackground (blue) 
trackl  :=  limmit  —  1 
reviewl (names , 1 i mmi t )  ; 
Y  :  =  13; 

trackl  :=  limmit: 
gotoxy (2,18)  ; 
if  (wherey  *  18)  or 
(trackl  *  limmit) 
then 
begin 

sound (5000) ; 
delay ( 100) ; 
nosound; 
end; 

end;  {end} 


#80  :  if  scrollit  then 

begin  {down  arrow} 

textbackground (blue) ; 
if  (wherey  <  18)  and 
(wherey  >  5)  and 
(trackl  <  limmit) 
then 
begin 

y  :=  y  +  1; 
trackl  ;= 
trackl  +■  1  ; 
gotoxy (2,y) ; 
end ; 


.*■  .r  n 


if  (wherey  =  18)  and 
(trackl  <  limmit) 
then 
begin 

if  trackl  >  13 
then 

trackl  : = 
track!  -  12 
el  se 

trackl  :=  1; 
Gotoxy (2,6) ; 

Y  :=  6; 

review 1 (names, 

1 i mmi t ) ; 
y  : *  wherey; 
gotoxy  <2,y)  ; 
end; 

if  (wherey  =  18)  and 
(trackl  =  limmit) 
then 
begin 

sound (5000) ; 
delay ( 100) ; 
nosound; 
end; 

end;  Cdown  arrow! 


if  scroll it  then 

begin  {page  down! 

textbackground (blue) ; 
gotoxy (2, 6);  Y  :=  6; 

if  trackl  >  13  then 
trackl  := 

trackl  +  17; 

if  trackl  >  limmit-13 
then 

trackl  :=  limmit-13; 

revi ewl (names , 1 l mmi t ) ; 
y  :=  wherey; 
if  trackl  =  limmit  then 
Y  :=  wherey; 
gotoxy (2, Y) ; 


if  (wherey  =  13)  or 
(track 1  =  limmit) 
then 
begin 

sound (5000) ; 
del  ay ( 1 00) ; 
nosound; 
end; 

end;  (page  down) 


#75,  #83  :  if  counted  >  0  then 

begin 

{ delete  &  left  arrow!) 

counted  : = 

counted  -  1 ; 

X  :=  whereX; 

Z  :=  whereY; 

GotoXY ( X— 1 , Z)  ; 
inputstring 
Ccountea+ll  : =  #32; 
write ( '  '  > ; 

GotoXY (X-l ,Z) ; 

end 
el  se 

begin 

gotoxy ( (horizontal+ 
counted) , vertical ) ; 
sound (5000) ; 
delay (100) ; 
nosound; 
end; 


end;  -Cease  Statement! 
end; (Escape  sequence  for  function  keys) 

#32.. #125  ;  if  counted  <  G  then 

begin  (normal  characters) 
counted  ;=  counted  +•  i; 

( *•***#****■*-*■***•***•**■•**#•■«•**** 
FORCES  EVERY  CHARACTER  INTO 
CAPS 

****#*#*****#*##*■**■•*■•**■*•*** ) 

i t  cht  inC'a'.. ' z  I  then 
cht  ;=  chr (ord (cht ) -32) ; 


inputstringC counted]  := 


write (cht ) ; 


end; 


(normal  characters 


if  (counted  >  0)  then 


begin 


{backspace! 


counted  :=  counted  -  1; 
X  :=  whereX; 

Z  s=  whereY; 

GotoX Y ( X— 1 t  Z ) ; 
inputstring 
Ecounted+1!  :*  #32; 
write ( '  ' ) ; 

GotoXY (X— 1 , Z) ; 

end  {backspace! 

el  se 

begin 

gotoxy( (hori zontal + 
counted) , vertical ) ; 
sound (S000) ; 
del av  < 100) ; 
ncsound: 
end; 

end;  {case  statement! 

if  (counted  =  G)  and  (cht  <>  #13)  then 
{end  of  string! 

begin 

gotoxy ( (horizontal +counted) , vertical ) ; 
sound (5000);  del  ay (100);  nosound; 

end; 

until  (cht  =  #13)  ; 

if  counted  <  G  then 
begin 

X  :=  Horizontal  +  counted; 
repeat 

textbackground (bl  ue)  ; 
gotoXY(X, Vertical ) ;  write(‘  '); 

X  : =  succ ( X ) ; 
until  X  =  Horizontal  +  S; 
end ; 


textcolor (white) ; 
tex tbackground (blue) ; 

end;  IGetTheKeysI 


procedure  Sortem (Var  probl,  pr ob2  :  probRec)  ; 
var 

TEMPprob  :  probrec; 
begin  ISortEmJ 

TempProb  s  =  probl;  probl  :=  prob2; 

prob2  :=  Tempprob; 

end;  ISortEml 

procedure  probSort(var  Probs  s  probArray; 

limmit  :  integer); 


<*******■*********•#***********•#******************■•*-**•*■****■■*•■*•*-* 


■» 

PROCEDURE 

PROBSORT 

* 

* 

SUPPORTS  PROGRAM 

3T0UCH. PAS 

■* 

* 

LOCAL  VARIABLES 

NOEXCHANGES,  FURST,  PASS,  LIMID 

* 

* 

GLOBAL  VARIABLES 

PROBS,  LIMMIT 

*■ 

« 

ARRAYS  USED 

PROBARRAY 

* 

« 

FILES  ACCESSED 

NONE 

* 

* 

EXTERNAL  CALLS 

SORTEM 

* 

* 

EXTERNAL  FILTERS 

NONE 

* 

* 

CALLED  FROM 

*■ 

* 

PURPOSE 

EXECUTES  AN  ALPHA  SORT 

ON  RECORDS 

* 

•* 

IN  PROBARRAY  USING  THE 

PROBLEM 

<• 

* 

NAME. 

* 

*#*#»*#####**###*#*******###**#*##**#*******##*##*####»**# ) 


var 

NOEXCHANGES 
FURST,  PASS,  LIMID 


BOOLEAN; 

INTEGER; 


begin  CprobSort> 

limid  :=  limmit  -  1;  Pass  :=  1; 

repeat 

Noexchanges  :=  True;  ' 

far  Furst  :=  1  to  limid  -  Pass  do  ! 
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vvi 


13>5 


if  <ProbsCFurst3.problem  > 

ProbsCFurst  +  13. problem)  then 

begin  (Exchange} 

SortEm (ProbsCFurst 3 ,  ProbsCFurst 
Noexchanges  : =  False; 
end;  {Exchange} 

Pass  :  =*  Pass  +•  1 ; 

until  Noexchanges; 

end;  CprobSort} 

procedure  ReWri telt < var  Probs  s  probArray; 

Li  mini  t  :  Integer); 


(a********************************************************** 


* 

PROCEDURE 

REWRITE IT 

* 

* 

SUPPORTS  PROGRAM 

BTOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

NONE 

* 

« 

GLOBAL  VARIABLES 

TRACK 1,  PROBS,  LIMMIT,  PROBNAME, 

* 

* 

ALTERNATIVE,  CHANGEREC 

■* 

* 

ARRAYS  USED 

PROBARRAY 

* 

* 

FILES  ACCESSED 

ACITVEPROBLEMFILE  =  ' PROBS. TXT ' 

* 

# 

EXTERNAL  CALLS 

NONE 

* 

* 

EXTERNAL  FILTERS 

NONE 

#• 

* 

CALLED  FROM 

# 

* 

PURPOSE 

REWRITES  ACT I VEPROBLEMF ILE 

* 

* 

(PROBS. TXT) 

* 

*****************««#********«******•»***■»***-»**********#*-»*  ) 

beqin  CReWriteltl 

rewri te(acti veproblemf ile) ; 

Trackl  s=  1; 

repeat 

if  (changerec  =  'C')  and 

(probsCtrack 1 3 . probl em  =  probname)  and 
(probsC track  1 3 . choi ce  =  alternative)  then 
probsC track  1 3 . checkchange  :=  changerec: 

if  (changerec  =  N')  and 

(probsC track  1 3 . prob 1 em  =  probname)  and 
(probs C track  1 3 . member  =  namestring)  and 
(probsC track  1 3 . choi ce  =  alternative)  then 
probsC track  1 3 . checkchange  :=  changerec; 

Write  'acti veprobi emf i i e . ProbsC  Track  1 3 ;  ; 

Trackl  :=  Trackl  +  1; 

until  (Trackl  =  Limmit); 


>v:vs*:vr 


■VAWvf 


close  (act i  veprobl  em-f  i  le)  ; 
end;  {ReWritelt]- 


procedure  LoadEmUp; 


* 

PROCEDURE 

LOADEMUP 

* 

* 

SUPPORTS  PROGRAM 

BTOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

NONE 

* 

* 

GLOBAL  VARIABLES 

Z,  TRACK 1 ,  PROBS, 

LIMMIT 

* 

* 

ARRAYS  USED 

PROBARRAY 

* 

# 

FILES  ACCESSED 

ACTI VEPROBLEMF I LE 

=  'PROBS. TXT ' 

* 

* 

EXTERNAL  CALLS 

PROBSORT ,  REWRITE IT 

* 

* 

EXTERNAL  FILTERS 

NONE 

* 

* 

CALLED  FROM 

* 

* 

PURPOSE 

LOADS  THE  ARRAY  PROBARRAY,  SORTS 

* 

* 

THE  RECORDS,  THEN 

PUTS  THEM  BACK 

* 

* 

IN  THE  FILE. 

* 

***********-»**********-»******»********»*******************) 

begin  CLoadEmUp]- 

Reset (Acti veProblemFi le)  ; 

2  :  =  (f  i  1  esi  ze  <acti  veprobl  em-f  i  1  e)  )  ; 
close(acti veproblemf ile) ; 

if  z  >  0  then 

begin  Clf  the  filesize  statement)- 
reset  < act i veorobl emt i le) ; 

Trackl  : =  1; 

while  not  EOF  ( act  i  veprobl  em-f  i  I  e  )  do 

begin  {While  Statement] 

Read  (acti  veprobl  em-f  i  le,ProbsCTrackl)J>  ; 
Trackl  :=  Trackl  +  1; 

end;  IWhiie  Statement) 

Limmit  :  =  Trackl; 

close  (acti  veprobl  em-f  ile); 

probScrt  (F’rcbs ,  Li  mmi  t ; 
rawri tei t ( or cbs , 1 i mmi t ) ; 

end;  Clf  the  filesize  statement) 
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end;  ILoadEmUp} 


procedure  Loadthe-f  i  1  es; 

(********************************■*••**■* -it-*-*****-****-*  *■#■•*■**•*  ■**■**•* 


* 

PROCEDURE 

LOADTHEFILES 

* 

* 

SUPPORTS  PROGRAM 

CTOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

NONE 

* 

* 

GLOBAL  VARIABLES 

FILEDRIVE,  ALTERNATIVE, 

* 

* 

NAMESTRING,  PROBNAME 

* 

* 

ARRAYS  USED 

NONE 

* 

* 

FILES  ACCESSED 

TEMPFLAGSET  =  'FLAGSET.TXT' 

* 

* 

(LOCAL  ONLY) 

* 

* 

EXTERNAL  CALLS 

NONE 

* 

* 

EXTERNAL  FILTERS 

NONE 

* 

* 

CALLED  FROM 

CTOUCH. PAS  (MAIN  PROGRAM) 

* 

* 

PURPOSE 

LOADS  THE  TEMPFLAGSET  FILE  WITH 

* 

* 

THE  VARIABLES 

* 

* 

LISTED,  SO  THAT  THE  PROGRAM 

* 

* 

FLAGSET. PAS  WILL 

■* 

* 

READ  THE  FILE  AND  KNOW  WHAT  TO  DO. 

* 

*##****■»####***#*#*#**■#****#*******■»#**#***#**#**#***#****) 

var 

TEMPFLAGSET  :  TEXT; 

begin  i  1  oadthef  i  1  esl- 


procedure  A1 ternateChoice; 


LVfc«iA^  iViV 

1 


(*###**##**###*#**#*#**#***#*#*##4#***##4##*#4*###****4#»4*4 


*  PROCEDURE  :  ALTERNATECHOICE  * 

*  SUPPORTS  PROGRAM  :  3T0UCH. PAS ,  CTOUCH.PAS  * 

*  LOCAL  VARIABLES  :  CHM  * 

*  GLOBAL  VARIABLES  :  INPUTSTRING,  ALTERNATIVE  * 

*  ARRAYS  USED  :  NONE  * 

*  FILES  ACCESSED  :  NONE  * 

*  EXTERNAL  CALLS  :  GETTHEKEYS  * 

*  EXTERNAL  FILTERS  :  NONE  * 

*  CALLED  FROM  :  * 

*  PURPOSE  :  ALLOWS  THE  USER  TO  SELECT  WHETHER  * 

*  HE  WILL  BE  DEVELOPING  * 

*  ALTERNATIVES  OR  CRITERIA.  * 


char ; 


begin  { A1 ternateChoi cel 
clrscr; 
got ox y (1,8); 

write('Are  you  developing  Alternatives  or  Criteria" 
A/C 

gatoxy (58, 3) ; 
repeat 

getthekeys ( i nput str i ng , 1 ) ; 
alternative  :=  inputstring; 
chin  :  =  alternative; 
gotoxy (58,8) ; 
until  chm  in  C'A','C'l; 
end;  CA1 ternateChoi ce> 


•-.••nV/.V 


procedure  GETFILENAMES; 

<  *********************************************************** 


* 

PROCEDURE 

GETFILENAMES 

* 

* 

SUPPORTS  PROGRAM 

BTOUCH. PAS ,  CTQUCH. PAS 

* 

LOCAL  VARIABLES 

AUTHORITY,  TEMPNAME,  CODENAME 

* 

* 

GLOBAL  VARIABLES 

HELPDRIVE,  FILEDRIVE,  NAMESTRING, 

* 

* 

INVOCATOR,  AUTHORIZED 

* 

* 

ARRAYS  USED 

NONE 

* 

* 

FILES  ACCESSED 

TEMPFILE  =  'DRIVEFIL. TMP ' 

» 

* 

(LOCAL  ONLY) 

*- 

* 

EXTERNAL  CALLS 

DECODE 

* 

* 

EXTERNAL  FILTERS 

* 

* 

CALLED  FROM 

* 

* 

PURPOSE 

READS  THE  TEMPFILE  WRITTEN  IN  A 

* 

* 

PREVIOUS  PROCEDURE  AND  RELOADS 

* 

* 

THE  GLOBAL  VARIABLES. 

* 

*****  *****************************************************) 

var 

AUTHORITY 

TEMPNAME,  CODENAME 
TEMPFILE 

begi  n 

assign  (TEMPFILE, 'DRIVEFIL. IMP ' ) ; 

C$1-:! 

reset  (TEMPFILE); 

C$I+> 

if  IOresult  =  0  then  begin 
readln  (TEMPFILE,  CODENAME); 

TEMPNAME  : =  DECODE  (CODENAME); 

HELPDRIVE  :=  copy (TEMPNAME, 1 , 1 ) ; 

FILEDRIVE  :=  copy (TEMPNAME, 2, 1 ) ; 

AUTHORITY  :=  copy ( TEMPNAME .3,1); 

NAMESTRING  :=  copy ( TEMPNAME , 4 , 3) ; 

INVOCATOR  :=  copy (TEMPNAME , 7 , 1 ) ; 
close  (TEMPFILE); 
if  AUTHORITY  =  'T'  then  begin 
AUTHORIZED  ;=  true; 

if  invocator  =  'M'  then 
begin 

AUTHORITY  ;=  'F'; 

TEMPNAME  := 

concat ( HELPDR I YE , F I LEDR I VE , AUTHOR I T Y , NAMESTR I NG , 

INVOCATOR) ; 

CODENAME  ;=  ENCODE (TEMPNAME)  ; 
rewrite (TEMPFILE)  ; 
write (TEMPFILE, CODENAME) ; 
cl ose ( tempf i  1  e)  ; 
end ; 

end 

el  se 

AUTHORIZED  :=  false; 


;  char; 

;  stringC12I; 
:  text; 


£if  IOresultD- 


end 
el  se 

AUTHORIZED  :=  false; 
end;  {procedure  GETFILENAMES} 


( *****-***********-*************-***-*****•**■***************■**** ) 
FILE  :  FILTERA. LIB  (192  lines) 

WRITTEN  BY  :  Nike  Neeley  &  Bob  Wooldridge,  Nay, 36 
PURPOSE  :  Procedure  library  for  TOUCHSTONE  (COOP 

Criteria  Filter  Program)  written  as  a  part 
of  a  thesis  for  a  Master  of  Science  in 
Computer  Systems  Management,  Naval 
Postgraduate  School,  Monterey,  California 
CONTENTS  :  TITLE,  BASICBOX 

( ********************************************************** ) 
PROCEDURE  :  BASICBOX 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 86 

Based  on  a  program  created  by  Mark  Hayes 
PURPOSE  :  Draws  a  box  as  specified  by  the  input 
variables 

PARAMETERS  :  X1,Y1,X2,Y2  s  integers  (box  corner 
coordinates) 

EXTERNAL 

NEEDS  :  none 

( *****-*******************************************-*****#**** ) 
procedure  BASICBOX  (XI ,Y1 ,X2,Y2: integer ) ; 
var 

.  3C  :  arrayC 1 . . 1 , 1 . . 41  of  integer; 

M,I,J  :  Integer; 

begir 

{box  parameters} 

BCC1,11  :=  XI;  BCC1.21  :=  Yl;  BCC1,31  :=  X2; 

8CC1.41  :=  Y2; 


for  M  :=  1  to  1  do  begin 


{draw  a  single  box  as 
needed  I- 

SctoXY (BCCM, 1 1 , BCCM, 21 ) ; 
write (chr (231 ) ) ; 

for  J  :=  (BCCM, 11+1)  to  (BCCM, 31-1)  do  begin 
GotoXY ( J , BCCM , 21 ) ; 
write (chr (205) ) 
end;  {for  J  :=!• 

*  GotoXY (BCCM, 31 , BCCM. 2! ) ; 
write (chr ( 187) > ; 

for  I  :=  (BCCM, 21+1)  to  (BCCM, 41-1)  do  begin 
GotoXY (BCCM, 11,1); 
write (chr ( 186) ) ; 

GotoXY (BCCM, 31 , I) ; 
write (chr  < 1S6) ) 
end:  Cfcr  I  :=) 

GotoXY (BCCM, 11 , BCCM, 41) ; 
write (chr ( 220) ) ; 

for  J  :=  (BCCM, 11+1)  to  (BCCM, 31-1)  do  begin 
GotoXY ( J , BCCM ,41) ; 


.  oc 


write(chr (205) ) 
end;  {-for  J  :=} 

GotoXY  (BCCM,33 , BCCM,43 ) ; 
wr i te (chr ( 1SS) ) 
end;  {for  M  ;=> 
end;  {procedure  3ASICB0XI 

( **#***********##*##*#####*#******#*#####*****#**♦****##**# j 

PROCEDURE  :  TITLE 

WRITTEN  SY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 36 

Based  on  a  program  created  by  Mark  Hayes 
PURPOSE  :  Draws  the  title  screens  with  sound  input 
PARAMETERS  :  none 
EXTERNAL 

NEEDS  :  none 

( ***********#***#**************#**#******#****#****.**.****** ) 
procedure  TITLE; 
var 

NOTE,M,I,J  :  Integer; 
begin 

window  (1,1,30,25); 
portC^03d9I  :=  S-f  and  3; 

tex tbackground  (blue)  ;  textcolor  (whi  te)  ; 
clrscr; 

BASIC30X ( 14,4,60,20) ; 

BASICBOX  <17 ,5,63,21 ) ; 

BASICBOX (20,6,66,22) ; 
textcolor (yel low)  ; 

gotoxy  (35,3);  {begin  first  title  screen! 

write  ( ' TOUCHSTONE ' ) ; 
gotoxy  (25, 13) ; 

write  ('A  Criteria  Development  Program " ) ; 
gotoxy  (23, 11); 

write  ('for  Group  Decision  Support  Systems'); 

goto xv  v o2 ,  i -^ )  ; 

write  ('Michael  E.  Neeiey'); 

gotoxy  (30, 14) ; 

write  ('Robert  T.  Wooldridge'); 
gotoxy  (23,16) ; 

write  ('Naval  Postgraduate  School'); 
gotoxy  (30,17); 

write  (Monterey,  California' ) ; 
gotoxv  (33,13): 
write  (  '  1 986 ' ) ; 

NOTE  ;=  0; 

repeat  {noise  for  first  title  screen! 

sound  ( 1000) ; 
del  ay  (500 ) ; 
sound  ( 2000 ) ; 
delay  (500; ; 

NOTE  :=  NOTE  +  1; 
until  NOTE  =  3; 
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nosound; 

delay  (5000);  {begin  second  title  screen) 

portC$03d93  i~  S-f  and  4; 
got ox y  (30 ,8) ; 

write  ( 'ADMINISTRATIVE  SCIENCE'); 
gotoxy  (25,10); 

write  ( '  ' ) ; 

gotoxy  (35,10); 
write  <  ’  DEPARTMENT ' )  ; 
gotoxy  (23, 11); 

write  (  '  '  )  ; 

gotoxy  (32,12); 

write  ('  Thesis  Advisor  '); 

gotoxy  (32,13); 

write  ( '  ' )  ; 

gotoxy  (29 , 14) ; 

write  ('  Xuan  Tung  Bui,  Ph.D.  '); 

NOTE  :=  0; 

repeat  {noise  for  second  title  screen 

sound  (1500); 
del  ay  (500) ; 
sound  (750) ; 
del  ay  (500) ; 

NOTE  :=  NOTE  +  1; 
until  NOTE  =  3; 
nosound; 
delay  (2000); 
end;  {procedure  TITLE) 


<  *#•****•»**■»■*******■**■***********■»***■»■»**■»■»■»■»•*****■»**•»«■***■»*•» ) 
FILE  :  FILTERB. LIB  (  ) 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 36 
PURPOSE  :  Procedure  library  for  TOUCHSTONE  (COOP 

Criteria  Filter  Program)  written  as  a  part 
of  a  thesis  for  a  Master  of  Science  in 
Computer  Systems  Management,  Naval 
Postgraduate  School ,  Monterey,  California 
CONTENTS  :  ENCODE,  INTRQSCREEN ,  INTRODUCTION, 

MAKECODE 

( **#*****•»*#****•»***•»•»*********■»#****■»*■»***■»*******•»•******# ) 
PROCEDURE  :  INTROSCREEN 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 86 

PURPOSE  :  Draws  the  box  for  the  various  introductory 

and  menu  screens 
PARAMETERS  :  none 
EXTERNAL 

NEEDS  :  Include  file  FILTER1 . LIB 

<  *******-»******•»**-»■»•»***■»#*************■»***•«•*•»■»***■»■»**■»■**-»* ) 

procedure  INTROSCREEN; 

begin  Cprocedure  INTROSCREEN! 
port CS03d91 : =  £f  and  S; 

text background (blue) ;  text col  or (whi te) ; 

wi ndow (1,1,80,25); 
clrscr ; 

BASICBOX (5,3,75,22) ; 
gotoxy (30,3) ; 

text back ground (red ) ;  text col  or (yel low); 
write  ('  TOUCHSTONE  >; 

tex t back ground (blue) ;  t ex tool  or (whi ta) ; 
wi ndow < 1 2 , 5 , 73 ,20) ; 
end; 

;  #*•#■*•*■*  **#•*****»■*■#-*-*■*■-#•*■  *******  *■■*■*•*-*■*■*•■#•  *#■•*•*-■*-#•■#■■****•-*■#•  ****** ) 
PROCEDURE  :  ENCODE 

WRITTEN  BY  :  Mike  Neeley  St  Bob  Wooldridqe,  May. 86 
PURPOSE  :  Encodes  user  name  and  user  ID  for  filing 

PARAMETERS  :  input:  NAMECODE  :  array C 1 .. 83  of  char; 
EXTERNAL 

NEEDS  :  none 

V  **********************************************************  ) 

function  ENCODE (NAMECODE  :  CODEARRAY)  :  CODEARRAY; 


var 

TEMPCODE 

I 

begi  n 

for  I  := 


arrayC1..123  of  char: 
i nteqsr ; 


1  to  12  do  begin 
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{change  input  to  all  caps  and} 
it  NAMECODEC 1 3  in  C'a'..*z'3  then 
Cdelete  non— letters! 

NAMECODEC I  3  :=  chr (ord (NAMECODEC 1 1 )  -  32); 
if  not  (NAMECODEC  1 3  in  C'A'..'Z'3)  then 
NAMECODEC I 3  :  =  chr (32); 
end;  {for  I! 

{sncode  all  charters  into  code! 
tor  I  ;=  1  to  12  do 

TEMPCODEC  I  3  :=  chr  (or d  (NAMECODEC  I  3  )  +  (97+1) ); 

ENCODE  :  =  TEMPCODE; 
end;  {procedure  ENCODE! 

( ##********#*#********#*********#■**##*##■*****•#•*•**•*•**•#*****••*■ ) 
PROCEDURE  ;  DECODE 

WRITTEN  BY  :  Mike  Neeley  it  Bob  Wooldridge,  May, 86 
PURPOSE  :  Decodes  user  name  and  user  ID  -from  file 

PARAMETERS  :  input:  NAMECODE  :  arrayCl..S3  of  char; 
EXTERNAL 

NEEDS  :  none 

(  ***»-IHHHHt*#-»**####*#-»##**#*##****'»#-»*#*##*»***####*##*-*#4*  ; 

function  DECODE (NAMECODE  :  CODEARRAY)  :  CODEARRAY: 


TEMPCODE  :  arrayC1..123  of  char; 

I  :  integer; 

begin 

{decode  all  charters  from  code! 
for  I  :=  1  to  12  do 

TEMPCODEC I  3  ;=  chr (ord (NAMECODEC I  3 )  -  (97+1) ); 

DECODE  ;=  TEMPCODE: 
end:  {procedure  DECODE! 

t  ##*#»#*#***##*##-»*#*#*#*#*****»#*****#*#*-»4#****4*********  * 

PROCEDURE  :  MAKECCDE 

WRITTEN  BY  ;  Mike  Neeley  &  Bob  Wooldridge,  May, 86 
PURPOSE  :  Creates  a  new  codv  of  TOUCH. ZZV 
PARAMETERS  :  none 
EXTERNAL 

NEEDS  :  none 

: ##*#*#*4**#***4444**#4*#*#4*#44*4*4****4*44*44*##*4#*44+** 


procedure  MAKECODE; 


L ,  X ,  COUNTER 
CH 

INFUTWCRD 

CHECKFILE 

WORKFILE 

SAVELINE 


i nteger ; 
char ; 

stri ng  C33 ; 
stri ngC 143 ; 

text: 

arrayC1..33  of  st.-i  ng  C  1 2  3  ; 


CHECKCODE 


array  Cl..  B  3  ot  char; 


begin  {procedure  MAKEC0DE3- 
clrscr; 
gotoxy (4,6) ; 

write  ('The  tiles  on  drive  ',FILEDRIVE, 

'  have  not  yet  ’ ) ; 
write  ('been  initialized.'); 
gotoxy  (4,7) ; 

write  ('For  these  tiles,  you  will  need  a  master 
password.  '); 
gotoxy  (4,8); 

write  ('Please  input  one  now:  (Maximum  ot  8 

letters) ' ) ; 

COUNTER  : =  1;  X  : =  24; 
gotoxy  (24,10);  write  ('*****■***'); 
repeat  (until  COUNTER  >8> 
gotoxy (X , 10) ; 
repeat 

read (kbd,CH) ; 
it  CH  in  C'a'..'z'l  then 
CH  :=  chr (ord (CH) —32) ; 
until  CH  in  C'A’..'Z','  ',#131; 

write  (CH) ; 

CHECKCODE C COUNTER!  :=  CH; 

it  not (CHECKCODEC 1 1  in  C  ',#131)  then  begin 
X  :=  X  +  1; 

it  CH  =  #13  then  begin 

tor  L  :=  COUNTER  to  8  do 
CHECKCODE  CL]  :=  '  's 
COUNTER  :=  8; 
end;  (it  CH=#133 
COUNTER  :=  COUNTER  +  1; 
end;  (it  not  checkcode) 
until  COUNTER  >  3; 

INPUTWORD  :=  CHECKCODE; 

CHECKFILE  :=  concat (FILEDRIVE. TOUCH. ZZV ') ; 
assiqn  ( WORKF I LE, CHECKFILE) ; 
rewrite  (WORKFILE) ; 

(Read  tile  and  assign  parts  ot 
tile  to  code  intormation) 

SAVELI NEC  1 ]  :=  ENCODE (concat ( '  ', INPUTWORD) ) 

writeln  (WORKFILE,  SAVELI  NEC  ID; 

CLOSE (WORKFILE) ; 
clrscr ; 

end;  {procedure  ,y1AKZC0DE3 


ib  Wool  dr  i 
necessar 


<**************«Ht**#**-*-fr-K«"»-N  . 


PROCEDURE  :  CHECKTHEFILES 
WRITTEN  BY  :  Mike  Neeley  &  Bo 
PURPOSE  :  Checks  to  see  of 
f i 1 edrive 


PARAMETERS  :  none 
EXTERNAL 

NEEDS  :  HELPDR I VE, FILEDRIVE  :  char 

( **■»*****#**•»  ****■»****•«••»■»**■»*  ***  *■»**■»  ***•*• 


procedure  CHECKTHEFILES; 


var 

WORKFILE  :  1 

CHECKFILE  :  < 


begi  n 

(see  if  TOUCH. ZZV  i s  on  the  filedrive 
CHECKFILE  :=  concat (FILEDRIVE , TOUCH 


assign (WORKFILE, CHECKFILE)  ; 

C-JI-1 

reset  (WORKFILE); 

£$I+) 

if  IOresult  <>  0  then  begin 
MAKECODE; 

end;  £if  IOresult  <>01 
close (WORKFILE) ; 

CHECKFILE  :=  concat (FILEDRIVE PROBS 

£r 

assign (WORKFILE, CHECKFILE) ;  CG 

C  SI-2- 

reset  (WORKFILE); 

£*I  -t-j 

if  IOresult  >  3  then  begin 
rewrite  (WORKFILE); 
end;  £if  IOresult  < >0 J 
close (WORKFILE) ; 

end;  Cprocedure  CHECKTHEFILES! 


rS  rh 


( ***■»**###*■»■■«■***■»***■»*#*■»*■»**•»***•»***•*■»#*#*■»******■«■•*■»****** ) 


PROCEDURE 
WRITTEN  BY 
PURPOSE 

PARAMETERS 

EXTERNAL 

NEEDS 


SETTHEDATE 

Mike  Neeley  &  Bob  Wooldridge,  May, 86 

Sets  date  from  registers,  writes  date  to  a 

file 

none 

none 


procedure  GetTheDate; 

{gets  and  changes  the  date! 

type 

REGISTERS  =  record 

AX , BX ,CX , DX , BP , SI , DS , ES , FLAGS  :  integer; 
end;  {record! 

STRING2  =  str i ng !2! ; 

STRING4  =  stringed; 


var 

CONTINUE 

I,  MOT,  CODE , DH , DL , X , 
MONTH, DAY 
HEXNUMBER ,  YEAR 
CH 

DATEFILE 

DA, MO, HR, MN 

YR, HEXLINE 

STRDATE 

DATE 

NUMCHAR 

REGS 


bool ean ; 

integer ; 
i  nteger ; 
char ; 
text ; 

STRING2; 

STRING4; 

string! 103 ; 

string! 123 ; 

arr ay II.. 83  of  char; 

REGISTERS; 


function  HEXCHANGE  (HEXL INE : STRI NG4 >: i nteger ; 
var 

3,C,D  ;  char; 

X,Y,Z,CCDE  ;  integer; 

begin 

B  ;=  copy  (HEXLINE, 2, 1 )  ; 

C  ; =  copy  (HEXL INE, 3, 1 ) ; 

D  : =  copy  (HEXLINE. 4 , 1 ) ; 
case  3  of 

'A'  ;  X  ;=  10; 

'B'  ;  X  ;=  11; 

'C'  ;  X  ;=  12; 

'D'  :  X  ;=  13; 

'E'  ;  X  ;=  14; 

'F'  :  X  :=  15; 

3 1  se 

val (B, X , CODE) ; 
end;  {base  B  of! 


cas*  C  of 

'A'  :  Y  :  =  10; 

'B'  :  Y  :*  11; 

'C'  ;  Y  :=*  12; 

'D'  :  Y  :=  13; 

'E'  :  Y  :»  14; 

F*  :  Y  ;=  15; 

•1  se 

val ( C , Y , CODE ) ; 
and;  (base  C  of  3 
case  0  of 

' A '  :  Z  10; 
'B'  s  Z  :=»  11; 

C'  :  Z  ;«  12; 

D'  s  Z  : =  13; 

E'  *  Z  ;«  14; 

'F'  :  Z  s»  15; 


A'  :  Z  ;»  10; 

'B'  s  Z  :»  11; 

C'  :  Z  ;»  12; 

D'  s  Z  : =  13; 

E'  *  Z  ;«  14; 

'F'  :  Z  s»  15; 

else 

val ( D  ,  Z  , CODE ) ; 
end;  Chase  0  o-f 3 
HEXCHANGE  :*  < 16*1 6*X ) + < 16*Y) +Z ; 
end;  {function  HEXCHANGE3 


function  HEX  (DATENUMs i nteger > ; stri ng 


var 

HEX DATE 


str ing2: 


rgi  n 

case  DATENUM  of 

1  :  HEX DATE  ; 

2  ;  HEXDATE  ; 

3  :  HEXDATE  ; 

4  ;  HEXDATE  : 

5  :  HEXDATE  s 

6  i  HEXDATE  : 

7  :  HEXDATE  ; 
3  ;  HEXDATE  ; 


9  ; 

HEXDATE  s 

= 

09  '  ; 

10 

3 

HEXDATE 

= 

'  0A  ' 

1 1 

• 

• 

HEXDATE 

= 

0B  ' 

12 

3 

HEXDATE 

= 

■0C  ' 

13 

• 

■ 

HEXDATE 

= 

•0D  ' 

14 

• 

• 

HEXDATE 

= 

2E 

•  C* 

*  U 

• 

HEXDATE 

3F  ' 

16 

• 

• 

HEXDATE 

= 

'  10  ' 

17 

■ 

■ 

HEXDATE 

= 

'11' 

IB 

3 

HEXDATE 

= 

'  12  ' 

19 

• 

• 

HEXDATE 

= 

'  13  ' 

20 

• 

• 

HEXDATE 

- 

'  14  ' 

n  i 

HEXDATE 

'15' 

HEXDATE 

= 

16 

23 

• 

• 

HEXDATE 

= 

'  17  ' 

24 

• 

• 

HE XDATE 

= 

13  ' 

25  ;  HEXDATE 

=  '  19  ' 

26  s  HEXDATE 

=  '  1A' 

27  :  HEXDATE 

=  IB' 

28  ;  HEXDATE 

=  '  1C ' 

29  :  HEXDATE 

=  ID' 

30  :  HEXDATE 

=  '  IE' 

31  :  HEXDATE 

=  IF'; 

end; 

HEX 

end; 


{case  DATENUMJ 
=  HEXDATE; 
{function  HEX) 


function  SPOT (X: integer) : integer; 


var 

TEMPSPOT 


integer 


begin 

case  X  of 
1  s  TEM 


3  : 
and; 
SPOT 


TEMPSPOT 

=  23 

TEMPSPOT 

=  24 

TEMPSPOT 

=  31 

TEMPSPOT 

—  TO 

— 

TEMPSPOT 

=  40 

TEMPSPOT 

=  41 

TEMPSPOT 

=  42 

TEMPSPOT 

=  43 

TEMPSPOT; 


end;  {function  SPOT] 


begin  CGetTheDate) 
with  REGS  do  begin 
AX  :=  i 2A00; 

MSDOS (REGS) ; 
str (CX, YR) ; 
str  < la  vDX)  , DA) ; 
if  la(DX)  <  10  chen 

DA  :=  concat ( '0' ,DA) ; 
str  (hi  (DX) ,M0) ; 
end;  {with  REGS] 


val (mo, mot , code) ; 


case  MOT  of 


Date 
Date 
Date 
Date 
Date 
Dat  a 
Dat  e 
Date 


09  s  Date 


Jan  '  ; 
Feb  ' ; 
Mar  ; 
Apr  '  ; 
May  '  ; 
Jun  '  : 
Jul  ' : 
Aug  '  ; 

'  Sep  '  ; 


10 

11 

12 

end; 

Date 


Date  i-  'Oct'; 

Date  s=  'Nov'; 

Date  i *  ' Dec ' ; 

{case  MOT  of} 

=  concat (Date,  '  '  ,da,  '  ,  ',yr); 


assign  (date-f  i  1  e ,  'date,  txt  ' )  ; 
rewrite (datefi le) ; 
wri  teln  <  date-f  i  le.date)  ; 
close  (date-f  i  le)  ; 

INTROSCREEN; 
gotoxy (10,3) ; 

write  ('THE  CORRECT  DATE  IS  VERY  IMPORTANT  TO  THE'); 
gotoxy ( 14,4)  ; 

write  ('PROPER  FUNCTIONING  OF  TOUCHSTONE!'); 
gotoxy (24,6) ; 
write  (date) ; 
gotoxy (18,8)  ; 

write  ('Is  this  date  correct7  Y'); 

gotoxy (41,8); 

repeat 

read ( kbd , CH) ; 
if  CH  in  C'y','n*3  then 
CH  :=  chr < ord (CH) -32) : 
until  CH  in  C'Y','N',#13Z; 
write  (CH) ; 
del  ay  (S00) ; 


4 


s.' 


V 


if  CH  *  'N'  then  begin 
repeat 

continue  :=  false; 
gotoxv  <17, 10)  ; 

write  (  Month  **  Dav  **  Year  ***-»'': 

X  :=  1; 

repeat 

got ox  y (SPOT ( X )  ,10) ; 
repeat 

read ( kbd , NUMCHARC  X 1 > ; 
until  NUMCHARC  X }  in  C'0'..*9'l; 
write (NUMCHARC XJ) ; 

X  :=  X  +  1; 
until  X  >  8: 

MO  :=  concat (NUMCHARC 1 J . NUMCHARC 21 ) ; 

DA  :=  concat  (NUMCHARC 71  . NUMCHAR C 4 3 )  ; 

YR  j  = 

concat (NUMCHARC 51 .NUMCHARC 61 , 

NUMCHAR  C  7 1 , NUMCHAR C  8 1 ) ; 
val  (YR, YEAR, CODE) ; 
val < MO , MONTH , CODE ) ; 
val  DA, DAY, CODE) ; 
if  MONTH  m  Ci  ..123  then 
CONTINUE  :=  true; 


3 


a 
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if  (DAY  in  Cl.. 31 3)  and  CONTINUE  then 
CONTINUE  s=  true; 

if  (YEAR  in  C 1986.  . 20203 )  and  CONTINUE  then 
CONTINUE  :=  true; 

if  (DAY  in  C313)  and  (MONTH  in  C4,6,9,113)  then 
CONTINUE  .-=  false; 

if  (MONTH  in  C23)  and  (DAY  in  C29..313)  then 
CONTINUE  :=  false; 

if  (DAY  in  C293)  and  (MONTH  in  C023)  and  CONTINUE 
and 

(YEAR  in  C 1988 , 1 992 , 1 996 , 2000 , 2000, 2004 , 
2008,2012,2016,20203)  then 
CONTINUE  s=  true; 
until  CONTINUE; 
delay  (500)  ; 
clrscr ; 

HEXLINE  s-  concat (HEX (month) , HEX (day) ) ; 

HEXNUMBER  :=  HEXCHANGE (HEXLINE) ; 
with  REGS  do  begin 
CX  :=  YEAR; 

DX  :=  HEXNUMBER; 

AX  :=  *2B00; 

MSDOS ( REGS) ; 
end;  Cif  CH  *  N'3 

end; 

ends  IgetthedateJ 


( ****#***********#*****#******-*****#****#***************-***  > 
PROCEDURE  :  INTRODUCTION 

WRITTEN  BY  s  Mike  Neeley  &  Bob  Wooldridge,  May,B6 
PURPOSE  :  Writes  the  introduction  information  on  the 
screen 

PARAMETERS  :  none 
EXTERNAL 

NEEDS  :  HELPDRI VE,FILEDRIVE  ;  char; 

( *******#**##**♦#*#*#***#***«■*#*#**#***##***##*#**#**#****♦ ) 

procedure  INTRODUCTION: 

var 
CH 

ACCURATE 
WORKFILE 
CHECKFILE 

begin 

INTROSCREEN; 
gotoxy (1,8) ; 

write  (  WOULD  YOU  LIKE  AN  INTRODUCTION  TO  TOUCHSTONE"1 
(Y/N)  *'): 

goto::  y  <  55 , 3 )  ; 
repeat 

read ( kbd , CH) ; 
l f  CH  in  C  y  ,  n  3  tnen 


char ; 
bool ean ; 
text ; 

string! 143: 
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CH  :  =  chr (ord (CH)  -  32); 
until  (CH  in  C 'Y* , *N'3) 5 
write(CH);  delay(500); 
drscr; 

it  CH  =  'Y'  then  begin 
gat ox y  < 14,1); 

write ( ' *  INTRODUCTION  &  INFORMATION  *'); 
gatoxy  (1,4) ; 

write  ('  The  TOUCHSTONE  program  is  designed  to 

assist  you  in'); 
got ox y  (1,6); 

write  ( 'developing  functional  and  meaningful  group 
cri teri a  for  ' ) ; 
gotoxy  (1,8); 

write  ('a  Group  Decision  Support  System.  Utilizing 
the  TOUCHSTONE ' ) ; 
gotoxy  (1,10); 

write  ('program,  vou  will  be  able  to  condense  a  large 
1  i  st  of  '  )  ; 
gotoxy  (1,12); 

write  ('spontaneously-considered  criteria  into  a 
compact,  well-  '); 
gotoxy  (1,14); 

write  ('defined,  GROUP-SELECTED  set  of  criteria.  '); 
gotoxy  (15,16); 

write  ('.PRESS  ANY  KEY  TO  CONTINUE)'); 

'epeat  until  kevpressed; 
clrscr ; 
gotoxy (9,1) ; 

writer*  INTRODUCTION  &  INFORMATION  (continued)  *'); 
gotoxy  (1,4); 

write  (These  criteria  will  be  uniquely  designed  to 
assi st  you  in'); 
got ox v  (1.6); 

write  ('resolving  vour  current  problem,  whatever  it 

mi ght  be.  ' ) ; 
gotox v  (1,8); 

write  ( ' Instructions,  specific  to  eacn  portion  of  the 
program,  may  '); 
gotoxy  (1,10) ; 

write  ('be  called  at  any  time  by  pressing  the  <F— 1 > 
("HELP")  key.'); 
gotoxy  (1,12); 

write  ('Communication  between  "committee  members"  is 
accomoi  1  sr.ed  '  <  ; 
gotoxy  ',1,14;  ; 

write  (via  the  "Chatterbox " ,  an  electronic  notepad 
whi ch  is  '  ) ; 
gotoxy  (15,16); 

write  (  '  (PRESS  ANY  KEY  TO  CONTINUE!;'); 
r9oeat  until  kevpressed; 


goto:;  y  t  9 , 1 )  ; 

write!  '*  INTRODUCTION  &  INFORMATION  (continued)  * ' )  ; 
gotoxy  » 1 , 4) ; 


§**  *♦. 


write  <  called  by  the  <-.F-2>  key.  An  extended 
explanation  o-f  the  '); 
gataxy  (1,6) ; 

write  ('problem  on  which  you  are  working  may  be  seen 
by  pressing  ' ) ; 
gotoxy  (1,8); 

write  ('the  <F— 3>  key.  Specific  information  for  the 
use  of  these ' ) ; 
qotoxy  (1,10); 

write  ('may  be  found  on-screen  at  the  bottom  of  each 
flash— up  box. '); 
gotoxy  (4,12) ; 

write  ('TOUCHSTONE  proceeds  through  three  levels  of 
cr i teri a  ' ) ; 
gotoxy  (1,14); 

write  ('development.  At  the  end  of  each  level,  the 
i ndi vi dual  ' ) ; 
gotoxy  (15,16) ; 

write  (  < PRESS  ANY  KEY  TO  CONTINUE!;-' >; 
repeat  until  keypressed; 
clrscr ; 
gotoxy (9,1)  ; 

writer*  INTRODUCTION  ?<  INFORMATION  (continued)  *'); 
gotoxy  (1,4); 

write  ('criteria  are  combined  for  grouD  decision  and 
editing.  Once  '); 
gotoxy  (1,6) ; 

write  ('there  is  agreement  on  this  level  of  criteria. 

TOUCHSTONE ' ) ; 
gotoxy  (1,8); 

write  ('moves  on  to  the  next  level  and  the  next  until 
the  THIRD) ; 
got ox v  (1,13) ; 

write  ('level  has  been  completed.  Finally,  there  is 
an  QDDortum  ty  '  )  : 
gotoxy  (1,12); 

write  ('to  edit  the  completed  list.  This  list  is  then 
reaav  for  use ' ) ; 
gotoxy  (1.14) ; 

write  ('with  a  DSS  to  evaluate  the  specifics  for  each 
cri ter i on . ' ) ; 
gotoxy  (15,16); 

write  ('<F'RESS  ANY  KEY  TO  CONTINUE>'); 
repeat  until  kevpressed; 


end ; 


!H  =  y; 


c v  r scr ; 
gotoxy ( IB , 1 )  ; 

writer*  FILE  INITIALIZATION  *  ’  >  ; 
gotoxy  (1,4); 

write  ('First,  before  you  start,  I  need  some  vital 
i  r.f  ormati  on :  '  J  ; 

got  ox  •/  (7,6.; 

write  (  On  which  crave  are  tne  HELP  files  lccatac: 
gotoxy  (5,8) ; 

write  ('  DRIVE:  A  (Default:  Drive  A  '); 


gotoxy  (5,11) ; 

write  ('On  which  drive  are  the  committee 
■files  located:  '); 
gotoxy  (5,13) ; 

write  <’  DRIVE:  3  <Default:  Drive  3 

ACCURATE  :=  -false; 
repeat 

gotoxy  ( IS ,8) ; 
repeat 

read (xbd ,CH) ; 
it  CH  in  C‘a'..'h'3  then 
CH  :=  chr(ord(CH)  -  32); 
until  (CH  in  E  ' A ' . .  'H ' , #133 ) ; 
if  CH  =  chr(13)  then 
CH  :=  'A'; 
wri te (CH) ; 

HELPDRIVE  :=  CH; 
gotoxy  (13,13); 
repeat 

read (kbd ,CH) ; 
if  CH  in  C 'a ' . . 'h ' 3  then 
CH  :=  chr(ord(CH)  -  32); 
if  (HELPDRIVE  =  'A')  and  (CH  =  'A')  then 
CH  :=  '  '; 

until  (CH  in  C'A'..'H',#133); 
if  CH  =  chr ( 13)  then 
CH  :=  'B'; 
wr i t  e  < CH ) ; 

FILEDRIVE  :=  CH; 
gotoxy  (8,16); 

write  ('Is  the  above  information  accurate? 
gotoxy (45, 16) ; 
repeat 

read ( kbd , CH) ; 

until  (CH  in  C'Y','y','N','n',#133>; 
if  CH  in  C'y','n'3  then 
CH  :=  chr (ord (CH)  -  32); 
wri te (CH) ; 
del  ay (200 ) ; 

if  CH  in  C ' Y ' , ' y ' , #133  then 
ACCURATE  :=  true 
else  begin 

gotoxy (1,16); 
clreol ; 

gotoxy  (18,3);  write  ('A'); 
gotoxy  .13,13);  write  \  8'); 
end;  -Celse/if  CH) 
until  ACCURATE; 
end ; 


y ,  y  - ; 


( *********************************■*■*•■*■•#■•*■*■*■»<■■*■*■***•**•#****•■#••*•#••*■* ) 
FILE  :  FILTERC. LIB  (  ) 

WRITTEN  BY  :  Mike  Neeley  &  Bab  Wooldridge,  May, 36 
PURPOSE  :  Procedure  library  -for  TOUCHSTONE  (COOP 

Criteria  Filter  Program)  written  as  a  part 
of  a  thesis  for  a  Master  of  Science  in 
Computer  Systems  Management,  Naval 
Postgraduate  School,  Monterey,  California 
CONTENTS  s  VERIFYCODE 

( #*#**#****###*##*######*###**###**#*###*******##**##*#***# ) 
PROCEDURE  :  VERIFYCODE 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 86 
PURPOSE  :  Checks  to  see  if  user  name  and  code  are 
valid 

PARAMETERS  ;  input:  NAMECODE  :  arravtl. .3]  of  char; 
EXTERNAL 

NEEDS  :  AUTHORITY  :  char; 

( ****-******************************#***-*******#**-*****-**-*-** ; 
procedure  VERIFYCODE; 
var 


NAME  OK ,  CODE  _0K 

; 

boolean; 

CONTINUE ,  MASTER, 

INITIAL CHECK 

• 

• 

bool ean; 

COUNTER,  TRIES, 

LASTLINE 

m 

w 

integer; 

J,  K,  L,  X 

• 

m 

integer; 

CH 

« 

m 

char : 

WORKFILE 

• 

• 

text; 

CHECKFILE 

• 

• 

string! 141 ; 

CHECKNAME 

■ 

arr  av  11. .33 

of 

char ; 

CHECKCODE 

• 

m 

arr ay  C 1 . . S3 

of 

char ; 

CODEMASTER 

■ 

array! 1 . . 853 

of 

char ; 

CODENAME 

array  Cl.. 353 

of 

str l nq  C33 ; 

CODEWORD 

array C 1 . . 353 

of 

string  CS  3 ; 

SAVELINE 

array  Cl.. 85  3 

of 

stringC 123 ; 

TEMPLINE 

CODEARRAY; 

procedure  GETANSWER  <A,B,C,D  :  char); 
{solicits  an  answer  from  the  user 3- 

beqi  n 

repeat 

read ( kbd , CH) ; 

if  CH  in  CA,B3  then 

CH  ;=  chr (ord <CH> -32) ; 
until  CH  in  CC,D,#133; 
write  (CH) ; 

end;  {procedure  GETANSWER! 


procedure  GETANS 


£sai.  its  an  answer  -from  the  user  3 

begin 

repeat 

read (kbd ,CH) ; 
i f  CH  in  C ' a ' . . ' z ' 1  then 
CH  :=  chr (ord (CH) -32) ; 
until  CH  in  ',#131; 

end;  (procedure  GETANS! 

procedure  CHECKANSWER (WRITECH  :  char); 

{gets  code  input! 

begin 

CHECKCODE  C  COUNTER 1  :=  CH; 

if  not  ( CHECKCODE C 1 !  in  C  '  ',#131)  then  begin 

write  (WRITECH); 

X  ;=  X  +  1; 

if  CH  =  #13  then  begin 

for  L  :=  COUNTER  to  8  do 
CHECKCODE CLJ 
COUNTER  :=  8; 
end;  {if  CH=#13! 

COUNTER  :=  COUNTER  +  1; 
end;  {if  not  checkcode! 
end;  (procedure  CHECKANSWER! 


procedure  CHECK I N I T I ALS  ( XCOORD I NATE , 

YCOORDINATE  s  integer); 

{checks  to  see  if  initials  are  valid! 

beqi  n 

CHECKNAMECCOUNTERI  ;=  CH; 

if  not ( CHECKNANEE 1 !  in  E  , #13j)  then  begin 
write  (CH) ; 

X  :=  X  +  1; 

if  CH  =  #13  then  begin 

for  L  :=  COUNTER  to  3  do 
CHECKNAMECLJ  ;=  '  '; 

COUNTER  ;=  3; 
end;  {if  CH=#13! 

COUNTER  ;=  COUNTER  +  1; 
end ; 

NAMECHECK  :=  CHECKNAME; 

if  (COUNTER  =  4)  and  < (NAMECHECK  =  ZZQ ' )  or 

(NAMECHECK  =  'ZZV')  or  (NAMECHECK  =  'ZZW)  or 
(NAMECHECK  =  'ZZX')  or  (NAMECHECK  =  'ZZY')  or 
((NAMECHECK  =  ZZZ')  and  INITIALCHECK) )  then  begin 
COUNTER  ;=  1; 
gotoxy (14,16)  ; 

write(  'SORRY,  THESE  INITIALS  RESERVED1'.; 
sound i4000) ; cei ay (500) ; nosound; 
del  ay ( 1500) ; 
gotoxy  (14, 16)  ; 


1S1 


write ( '  '  )  ; 

gotoxy (  XCOORDINATE , YCQGRDINATE) ;  write ( '***') ; 
X  :=  XCOORD I NATE ; 
end;  {if  NAMECHECK  =  'ZZZ'3 
end;  {procedure  CHECKINITI AL33 


begin  {procedure  VERIFYC0DE3- 

Ci  ni  ti  al  i  ze] 

X  : =  31 ; 

COUNTER  :=  1; 

AUTHORITY  :=  'F'; 

CODE_OK  :=  false; 

TRIES  :=  1; 

CHECKFILE  :=  concat (FILEDRIVE ,': TOUCH. ZZV ') ; 

Cread  file> 

assign (WORKFILE, CHECKFILE) ;  {Set  file  of  codes] 

reset  (WORKFILE); 

LASTL.NE  :=  1; 

{Read  file  and  assign  parts  of 
file  to  code  information) 

while  (not  eof  (WORKFILE))  and  (LASTLINE  <  170)  do  begin 
readln  (WORKFILE, SAVELI NEC LASTLINE 3 ) ; 

TEMPLINE  :=  DECODE (SAVELI NEE LASTLINE 3 ) ; 

CODEMASTER  C  LASTL I NE  I  :=  copy  (TEMPLINE, 1 , 1 ) ; 

CGDENAME CLASTLINE 3  :=  copy  (TEMPLINE, 2, 3)  ; 

CODEWORD CLASTLINE:  :=  copy  (TEMPLINE, 5, S) ; 

LASTLINE  :=  LASTLINE  +  1; 
end;  {while  not  eofj 
LASTLINE  :=  LASTLINE  -  1; 
close (WORKFILE) ; 

clrscr ; 

if  LASTLINE  =  1  then  begin 

{instructions  to  new  prob.  inv.3 
cl rscr ; 

gotoxy  (13,1) ; 

write  ( ' GREETINGS .  NEW  PROBLEM  INVOCATDR ! ' > ; 
gotoxy  (5,3); 

write  ('As  the  person  initiating  this  copy  of 
TOUCHSTONE , ' ) ; 
gotoxy  (5,4) ; 

write  ('you  are  designated  as  the:'); 
gotoxy  (5,5) ; 

write  ('  "Problem  invocacor".  >; 

gotoxy  (5,6) ; 

write  ('As  such,  you  are  the  one  to  define  the 
probl ems ,  '  ) ; 
gotoxy  (5,7) ; 

write  ('select  the  committee  membership,  and  perform 
the  '  ) ; 

gotoxy  I 5, 3) ; 

write  ('various  other  maintenance  functions.  You  may, 
of  '  )  ; 
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'.v, 


got ox y  (5,  9) ; 

write  ('course,  designate  other  problem  invocators  if 
you  ' ) ; 
gotoxy  (5,10); 

write  ('so  desire,  or  maintain  control  by  yourself. 

The  ' ) ; 
gotoxy  (5,11); 
write  ('choice  is  yours.'); 
gotoxy  (5,13); 

write  ('For  log-on  purposes,  I  will  need  to  know 
your ' ) ; 

gotoxy  (5,14); 

write  ('initials  (a  maximum  of  3) s  ***  '); 

X  :=  34;  I N I T I ALCHECK  :=  true; 
repeat  {until  CONTINUE! 

COUNTER  :=  1; 

{get  user's  initials! 

repeat 

gotoxy ( X , 14)  ; 

BETANS; 

CHECK I N I T I ALS (34,14) ; 

NAMESTRING  :=  NAMECHECK; 
until  COUNTER  >  3; 
gotoxy  ( 14, 16) ; 

write  ('Are  these  initials  correct?  V'); 
gotoxy  (43, 16) ; 

SET ANSWER ( ' y ' , ' n ' , ' Y ' , ' N ' ) ; 
if  CH  in  C'Y',#13!  then  begin 
CONTINUE  s=  true; 

CODENAME C 2!  :=  NAMECHECK; 
end  {if  CH! 
else  begin 

X  ;=  34;  gotoxy ( X , 14) ;  write  (**•*'); 

CONTINUE  :=  false; 
end; 

until  CONTINUE; 
clrscr ; 
gotoxy  (3,1) ; 

write  ('Thank  you  for  your  initials.  You  will  need  t 
use  ' )  ; 
gotoxy  (3,2)  ; 

write  (these  to  identify  yourself  to  the  computer 
each  time ' > ; 
gotoxy  (3,3)  ; 

write  ('you  log  on.  When  you  do  log  on  to  rGUCHSTCNE 
you  '  )  ; 
gotoxy  (3,4) ; 

write  ('will  need  to  use  the  Problem  Invocator 
Password  if'); 
gotoxy  (3,5) ; 

write  ('you  wish  to  identify  yourself  as  the 
probl em ' ) ; 
gotox  y  (47 , 5) ; 
write  ( '  invocator.  ')  ; 
gotoxy  (3,6)  ; 


write  ('For  this  version  of  TOUCHSTONE,  that  password 
is:  ' )  ; 
gotoxy  (20,7)  ; 

write  ( '**-*  *-*■* ' ) ; 

gotoxy  (24,7);  textcoior (yellow) ;  textbackqrcund (red) 
write  ('  ', CODEWORD Cl  3,  '  >; 

textcolor (white) ;  tex tbackground (blue) ; 
gotoxy  (3,9) ; 

write('(You  should  memorize  this  password  -for  -future 
use.  If  '  ) ; 
gotoxy  (3,10) ; 

write  ('you  wish,  you  have  the  option  to  change  it  in 
the  '); 

gotoxy  (3,11); 

write ( 'Problem  Invocator  Menu.)  If  you  prefer  to  log 
on  as ' ) ; 
gotoxy  (3,12) ; 

write('a  committee  member  instead,  vou  will  need  a 
personal ' ) ; 
gotoxy  (3,13); 

write  ('password  of  your  own.  This  word  (letters 
only)  can  be ' ) ; 
gotoxy  (3,14); 

write  (  up  to  S  letters  in  length:  ##*###*■#  ); 

X  :=  32;  TRIES  :=  0;  COUNTER  :=1; 

Cqet  problem  invocator  s  codeword) 
repeat  Cuntii  CONTINUE)- 
CONTINUE  :=  false; 
repeat  (until  COUNTER  >B> 
gotoxy (X , 14) ; 

GETANS; 

CHECKANSWER (CH) ; 
until  COUNTER  >  8: 
gotox v  (15,16); 

write  ('Is  this  code  word  correct?  Y'); 
gotoxy  (44 , 16) ; 

GET ANSWER (  '  y  '  ,  n  ,  '  Y  '  ,  N  '  )  ; 
if  CH  in  C'Y',#13j  then 
CONTINUE  :=  true 
else  begin 

gotoxy  (32,14);  write  ('******•*■*'); 

X  :=  32;  COUNTER  :=  1; 

CONTINUE  :=  false; 
end ; 

until  CONTINUE; 

USERCODE  :=  CHECKCODE; 

CODEWGRDC23  :=  USERCODE; 

CODEMASTER  C  2 1  : =  ' M ' ; 

LASTLINE  :=  3; 

[get  committee  member  information) 

ci r scr ; 
gotoxy ( 12,2) ; 

write!  '*■*  COMMITTEE  MEMBER  INFORMATION  *-*-  >; 


gotoxy (4,4) ; 

write  (  'Now  is  a  good  time  to  input  the  initials  of 
those ' ) ; 
gotoxy (4,5) ; 

write  (people  you  know  will 

need  to  have  access  to  ' ) ; 
gotoxy (4,6)  ; 

write  ('TOUCHSTONE-  Please  input  their  initials  and, 
for ' ) ; 

gotoxy (4,7) ; 

write  (each,  designate  whether  that  individual  is  to 
be  a ' )  ; 
gotoxy (4,8)  ; 

write  ('CPlroblem  invocator  or  merely  a  CClommittee 
member .  ' )  ; 
gotoxy  (4,9); 

write  ('(The  default  choice  is  Committee  member.)'); 
gotoxy  (4,11) ; 

write  ('Initials;  Access  level  (P/C) 

CC1 ' ) ; 

gotoxy  (17,15);  write  ('(Write  *ZZZ‘  to  exit)'); 
repeat  Cuntil  NAMECHECK  =  ZZZ! 

COUNTER  ;=  1;  NAMEJ3K  ;=  true; 

X  :=  15;  gotoxy (X , 1 1 ) ;  write  ('**#'); 
repeat  {until  CONTINUE? 

{get  user's  initials! 
repeat  {until  COUNTER  >3? 
gotoxy (X , 1 1 ) ; 

GETANS; 

I N I T I ALCHECK  :=  false; 

CHECKINITIALS (15,11); 

INITI ALCHECK  :=  true; 
until  COUNTER  >  3; 
gotoxy  (14,13) ; 

write  ('Are  these  initials  correct?  Y'); 
gotoxy  (43,13); 

GETANSWER ( ' v ' ,  'n ' , ' Y ' ,  N ' >  ; 
if  CH  in  C ' Y' ,#13]  then  begin 
L  ;=  1; 

while  not (L1LASTLINE)  and  NAME_OK  do  begin 
if  C0DENAMECL3  =  NAMECHECK  then 
NAME_OK  :=  false 
el  se 

NAME_OK  :=  true;  {check  user's  initials 

for  match? 

L  :  =  L  +•  1 ; 

end;  {while  not  L>LASTLINE?; 
if  NAME_OK  then  begin 
CONTINUE  ;=  true; 

CODENAME CLASTL I NE1  :=  NAMECHECK; 
erd  {if  NAME_OK? 
else  begin 

gotoxy (14,16); 

write! 'SORRY,  THESE  INITIALS  ARE  USED!'); 
sound ( 4000)  ; del  ay ( 500 ) ; nosound ; 
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delay (1500) : 
got ox y ( 14,16); 
write ( ' 

gotoxy ( 15, 1 1 ) ;  write ('***') ; 

X  :=  15;  COUNTER  :  =  1; 

CONTINUE  :  =  false;  NAME_OK  : 
end;  Celse) 
end  Cif  CH3 
else  begin 

X  ;=  15;  COUNTER  :=  Is 
CONTINUE  :=  false; 
end; 

gotoxy  <14,13); 
write  ( ' 
until  CONTINUE; 

if  NAMECHECK  <>  'ZZZ'  then  begin 
gotoxy  (52,11);  write  <'C'); 
gotoxy (52, 1 1 ) ; 

GETANSWER  ('<=', 'p','C','P'); 
if  CH  in  C 'C' ,#131  then 

CODEMASTER CLASTLINE:  :=  'W' 
el  se 

CODEMASTER CLASTL I NE1  :  =  'M'; 

CODEWORD CLASTLINE:  :=  '  ' 

end;  Cif  NAMECHECK  <>  'ZZZ': 

LASTLINE  ;=  LASTLINE  +  1; 
until  NAMECHECK  »  'ZZZ'; 

LASTLINE  s=  LASTLINE  -  1; 
assi gn ( WORKF I LE , CHECKF I LE ) ;  CRewrite  file  of  codes) 
rewrite  (WORKFILE) ; 
for  K  ;=  1  to  LASTLINE  do  begin 
TEMPLINE  := 

concat (CODEMASTER C K: , CODENAME CK: .C0DEW0RDCK1 ) : 

SA VEL I NE  C K I  : =  ENCODE ( TEMPL I NE ) ; 
wri tel n (WORKFILE, SAVELINECKI)  ; 
end;  I  far  JI- 

c  lose (WORKFILE) ; 

AUTHORITY  :=  'T'; 

INVOCATOR  :=  'M'; 
end  Cif  LASTLINE) 

else  begin  COther  than  new  invocator) 

X  ;=  40; 
gotoxy (16,4) ; 

writer**  SIGN-ON  INFORMATION 
gotoxy (15,7) ; 

write  ('What  are  your  initials?  **•*'); 
repeat  Cuntil  NAME _ OK  or  TRIES=3) 

CHECKNAME  ;=  '  NAME _ OK  :=  false; 

Cget  user's  initialsl- 
repeat 

gotoxy ( X , 7) ; 

GETANS; 

CHECK  INITIALS (40,7) ; 

NAMESTRING  :=  NAMECHECK; 
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until  COUNTER  >  3; 

{check  input  name  against  names  on  -file! 

J  :=  1; 

while  not < J >LASTLINE)  and  not  NAME_OK  do  begin 
if  CODENAME CJ:  =  NAMECHECK  then 

NAME_OK  s=  true;  {check  user's  initials 

for  match! 

J  :=  J  +  1; 

end;  {while  not  J>LASTLINE) ; 
xf  not  NAME_OK  then  begin 
COUNTER  :»=  1; 

X  :=  40; 

TRIES  :=  TRIES  +  1; 
gotoxy  <15,14) ; 

write ('THESE  INITIALS  NOT  ON  FILE'); 
sound (4000) ;delay (500) ; nosound; 
del  ay  < 1000) ; 
gotoxy (15,14) ;write< ' 
gotoxy (40,7) ;  wr i te ('***') ; 
end;  {if  not  NAME_OK)- 
J  :=  J  -  1; 

until  NAME  _0K  or  (TRIES>3> ; 

{check  for  correct  user  password) 
xf  NAME_OK  then  begin 

if  (CODEWORDCJj  =  '  ')  or 

( CODEWORD  C  J 1  =  '»*******') 
then  begin 

if  < CODEWORD C J ]  =  *  '>  then  begin 

gotoxy (6,9) ; 

write ('As  a  new  TOUCHSTONE  user, 
you  will  need  ' ) ; 
wr i te ( ' a  password .  ' )  ; 
gotoxy (6,10); 

write('What  would  you  like  for  your  password? 
********  ’  ) ; 
end  {if  CODEWORD C J 3 > 
else  begin 

gotoxy (6,9) ; 

write ('Your  Committee  Member  password 
has  been  ' ) ; 
wri te ( 'erased.  What'); 
gotox  v  <6 , 10) ; 

write( 'would  you  like  for  ycur  new  oassword7 
******** ' ; ; 

end;  {else/if  CODEWORD  CJ  3  )• 
gotoxv (19,12); 

write(  '  (Maximum  of  8  letter  s)  ' )  ; 

X  :=  45;  TRIES  :=  0;  COUNTER  :=1; 

{get  user's  codeword) 
repeat  {until  CONTINUE) 

CONTINUE  :=  false; 
repeat  Cuntil  COUNTER  >8) 
gotoxy (X , 10) ; 


GETANS; 

CHECK ANSWER (CH> ; 
until  COUNTER  >  8; 
gotoxy  (15,16) ; 

write  ('Is  this  code  word  correct?  Y); 
gotoxy  (44,16); 

GETANSWER (  '  y  '  ,  '  n  '  ,  '  Y  '  ,  '  N  '  >  ; 
if  CH  in  t'Y',#133  then 
CONTINUE  true 
else  begin 

gotoxy  (45,10);  write  ('*■*•*■#**•**•>; 

X  :=  45;  COUNTER  :=  1; 

CONTINUE  ;=  false; 
end; 

until  CONTINUE; 

USERCODE  :=*  CHECKCODE; 

CODEWORD C J3  ;=  USERCODE; 

TEMPLINE  := 

concat (CODEMASTERC J3 ,C£3DENAMEE  J3 , CODEWORD! J1 ) ; 
SAVEL I NE  C J 3  : -  ENCODE ( TEMPL I NE ) ; 
assi gn ( WORKF I LE , CHECKF I  LE )  ; 

{Get  file  of  codes) 
rewrite  (WORKFILE) ; 
for  K  ;=  1  to  LASTLINE  do  begin 
writeln (WORKFILE, SAVELINECK3) ; 
end;  {for  J) 
close (WORKFILE) ; 

AUTHORITY  :=  'T'; 
gotoxy ( 15, 16) ;  clreol; 
if  CODEMASTERC J 3  =  'M'  then  begin 
gotoxy (12,14); 

write  ('Which  menu  do  you  wish  to  use  today? ' > 
gotoxy (8,15); 

write  (  '  (F')roblem  invocator  or  (C)ommittee 
member ;  * ' ) ; 

gotoxy (52, 15) ; 

GETANSWER  ('p','c','P','C'>; 
ir  CH  =  P'  then  begin 
gotoxy (1,9);  clreol; 
gotoxy < 1 , 10) ;  clreol; 
gotoxy ( 1 , 14) ;  clreol; 
gotoxy ( 1 , 15)  ;  clreol; 
gotoxy  (6,10); 

write('What  is  your  Problem  Invocator 
password?  **■■#■•*-*-*•*■*  •  )  • 

X  :=  50;  TRIES  :=  1;  COUNTER  ;=  i; 
repeat  {until  CODE_OK  or  TRIES=3) ; 

{get  user's  codeword) 
repeat  {until  COUNTER  >8) 
gotoxy (X , 10) ; 

GETANS; 

CHECK ANSWER ' ' M ' ) ; 
until  COUNTER  .  S; 
del  ay (250) ; 


{check  usercode  against  codewords  on  file! 
USERCODE  i  =  CHECKCODE; 

if  (CODEWORD: 11  =  USERCODE)  then  begin 
CODE_OK  :=  trues 
INVOCATOR  :=  M's 
AUTHORITY  :=  'T'; 
end  Cif  MASTER! 
else  begin 

AUTHORITY  :=  'F'; 

COUNTER  :=  Is 
X  : =  50s 

sound (4000) ; del  ay (500) ; nosounds 
gotoxy ( 19,14) s 

write ( ' INCORRECT  ACCESS  CODE'); 
del  ay ( 1000) ; 
gotoxy (19,14) ; 

wr i te ( '  '  )  s 

gotoxy  (50,10);  wri  te  <  '  ********  '  )  ; 

TRIES  :=  TRIES  +  1; 
end;  {else! 

until  CODE_OK  or  <TRIES>3)  ; 
end;  {if  ch  =  'P'! 
delay (500) ; 

end;  {if  CODEMASTER C J 1! 
end  {if  NAME. OK! 
else  begin 

if  CODEMASTER C J 1  =  'M'  then 

MASTER  :=  true  {Person  signing  on  is  a  problem 
else  {invocator! 

MASTER  s=  false; 
gotoxy (6,10); 

write ('What  is  your  user  (or  invocator)  password^ 
******** ' ) ; 

X  :=  50;  TRIES  :=  1;  COUNTER  :=  1; 
reoeat  {until  CGDE.OK  or  TRIES=3>  ; 

{get  user's  codeword! 
reoeat  {until  COUNTER  >S! 
gotoxy ( X , 10)  ; 

GETANS; 

CHECKANSWER ( ' M ' ) ; 
until  COUNTER  >  8; 
del  ay (250) ; 

{check  usercode  against  codewords  on  file! 
USERCODE  :=  CHECKCODE; 
it  (C0DEWCRDCJ1  =  USERCODE)  then 
CODE_OK  :=  true 
el  se 

if  MASTER  and  (CODEWORD: 1!  =  USERCODE)  then 
begin 

CODE. OK  true; 

INVOCATOR  :=  'M's 
end  Cif  MASTER! 

else  begin 

COUNTER  :=  1; 


X  :=  50; 

sound (4000) ; del  ay (500) ; nosound: 
gotoxy (19, 14) ; 

write ( ' INCORRECT  ACCESS  CODE'); 
del  ay ( 1000) ; 
gotoxy (19,14); 

write ( '  '  )  ; 

gotoxy (50, 10)  ;  writet '#*****##') 
TRIES  :=  TRIES  +  1; 
end:  Cel  sel 

until  CODE_OK  or  (TRIES>3) ; 
end;  Cel se) 
end;  Cif  NAME_0K3- 
if  CODE  OK  then 


AUTHORITY  :=  'T'; 
d;  Cel se  -  if  LASTLINE=1> 
Cprocedure  VERIFYCODE} 
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procedure  NoFiles; 


* 

PROCEDURE 

NOFILES 

* 

* 

SUPPORTS  PROGRAM 

BTOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

NONE 

* 

* 

GLOBAL  VARIABLES 

STOPPROG 

* 

* 

ARRAYS  USED 

NONE 

* 

* 

FILES  ACCESSED 

NONE 

* 

* 

EXTERNAL  CALLS 

NONE 

* 

* 

EXTERNAL  FILTERS 

NONE 

* 

# 

CALLED  FROM 

* 

* 

PURPOSE 

WRITES  'NO  FILES 

ON  DISK'  ON  THE 

* 

* 

SCREEN  AFTER  THE 

CALLING 

* 

* 

PROCEDURE  CHECKS 

THE  FILE. 

* 

************************-***--***#****-**-**-********-******-***-** ) 

begin  Cno-filesJ 

if  not  (stopprog)  then 

begin  Cif  nay  stooproql 
gotoxy (21 ,9) ; 
tax tbackground (red) ; 
writer  No  Files  on  disk  '); 
del  ay (4000)  ; 
tex  tbackground (blue) ; 
stopprog  s  =  true; 
end;  -Ci  F  not  stopprog} 

end;  Cnofiles} 


procedure  warning; 


* 

PROCEDURE 

WARNING 

-* 

* 

SUPPORTS  PROGRAM 

BTOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

NONE 

* 

* 

GLOBAL  VARIABLES 

NONE 

* 

* 

ARRAYS  USED 

NONE 

# 

* 

FILES  ACCESSED 

NONE 

* 

* 

EXTERNAL  CALLS 

NONE 

* 

* 

EXTERNAL  FILTERS 

NONE 

* 

* 

CALLED  FROM 

DISPLAYIT , 

* 

* 

PURPOSE 

WRITES  'FILE  NOT 

FOUND '  AFTER 

* 

* 

PROCEDURE  CHECKS 

FILE  FOR  RECORD. 

♦ 

*##*****#*#****##*####**#**#*****#*#*#**4#***#4##**»*#**» * i 


begin  Cwarningi 
gotoxy (21,15); 
textbackground (red)  ; 
write(  '  File  not  -found  '); 
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delay (4000)  ; 
textbackground (blue) $ 
got ox y <21 , 15) ;  clreol; 
and;  {warning} 


procedure  Display It; 

(a******************-***********#**************#****-********-* 


* 

PROCEDURE 

• 

a 

DISPLAY IT 

* 

* 

SUPPORTS  PROGRAM 

a 

a 

BTOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

a 

a 

COUNTERS 

* 

* 

GLOBAL  VARIABLES 

• 

a 

* 

* 

ARRAYS  USED 

z 

NONE 

* 

* 

FILES  ACCESSED 

a 

e 

ACTI VEPROBLEMFILE  «  'PROBS.TXT' 

* 

• 

EXTERNAL  CALLS 

* 

WARNING 

* 

* 

EXTERNAL  FILTERS 

3 

* 

* 

CALLED  FROM 

a 

a 

# 

* 

PURPOSE 

a 

e 

DISPLAYS  SPECIFIC  PROBLEM  AND 

* 

* 

MEMBERS  ASSIGNED 

* 

•«***#***#*****«*«***»*»***#*###**##******###*********«*»*) 

var 

COUNTERS  :  INTEGER; 

begin  {display  itJ 

reset (Acti veProblemFi 1  a) ; 
counters  : =  1;  clrscr; 

while  not  EOF (acti vepr obi emfi le)  do 
begin  {While  Statement} 

read (Acti veProblemFi lef  members) ; 
if  (members. problem  ■»  probname)  and 

(members. choice  =*  alternative)  then 
counters  : =  counters  +  1 ; 
end;  {While  Statement! 
close (acti veproblemfi le) ; 
reset (acti veproblemfi le) ; 

Y  :=  3;  moveover  : =  10; 

while  not  EOF (acti veproblemfi le)  do 
begin  {While  Statement} 

read (Acti veProblemFile,  members) ; 
if  (members. probl em  =  probname)  and 

(members. choice  ■  alternative)  then 
begin 

if  counters  >  10  then 

begin  Cif  counters  >  10} 

if  (members. problem  ■  probname)  and 

(members. choice  *  alternative)  then 
begin  {2nd  if  comparing  probname} 
gotoxy (10,1); 

wr i t  e ( ' PROBLEM  MEMBER ' , 

PROBLEM  MEMBER ' ) ; 

stopgap  : 3  true; 
gotox  y ( moveover , Y ) ; 
wri te (members. probl em) ; 
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gotoxy (moveover  -4-  12, Y); 
writ«(iwbT».wby)  I 
Y  »-  Y  +  1; 
if  Y  «  11  than 

bag in  {if  Y  >  1 0> 

Y  i-  3; 

novsover  *■  32; 
and;  {if  Y  >  10} 

and;  {2nd  if  comparing  probnamel 
and  {if  countars  >  10} 

alsa 

bagin  {if  comparing  probnama) 
gotoxy (20,1) ; 

writa< 'PROBLEM  MEMBER'); 

stopgap  i °  trua; 

gotoxy <20, Y) ;  writa(marobars.protolam) ; 
gotoxy (32, Y) ;  Mrita(mambars.aambar) ; 

Y  s-  Y  +  1; 

and;  {if  comparing  probnama} 
and; 

and;  {whila  statement} 

close (act ivapr obi amf i la) ; 
if  not  (stopgap)  and 
not  (stopprog)  than 
warning; 

end;  {display  it> 


procedure  Loadlt; 

(a********************************************************** 


• 

PROCEDURE 

LOAD IT 

* 

* 

SUPPORTS  PROGRAM 

BTOUCH.PAS 

♦ 

* 

LOCAL  VARIABLES 

TEMPPROB,  REALLYTEMP 

» 

* 

GLOBAL  VARIABLES 

* 

* 

ARRAYS  USED 

NONE 

* 

* 

FILES  ACCESSED 

ACTIVEPROBLEMFILE  -  'PROBS.TXT' 

* 

* 

EXTERNAL  CALLS 

NONE 

* 

* 

EXTERNAL  FILTERS 

NONE 

* 

* 

CALLED  FROM 

* 

* 

PURPOSE 

THIS  PROCEDURE  LOADS  THE  ACTIVE 

* 

* 

PROBLEM  FILE  INTO  AN  ARRAY  FOR 

» 

* 

THE  PURPOSE  OF  DELETING  A  MEMBER 

* 

* 

FROM  A  SPECIFIC  COMMITTEE.  OR 

» 

* 

DELETING  A  PROBLEM  COMPLETELY. 

* 

■» 

THE  PROCEDURE  DISPLAYS  ALL 

* 

* 

RECORDS  SO  THAT  THE  USER  CAN  VIEW 

* 

* 

WHAT  PROBLEMS  HE  MAY  WISH  TO 

* 

* 

MANIPULATE. 

* 

a#******************************#*#***************#*#**#**) 

var 

tempprob  :  string8; 
raallytamp  :  string8; 


-h  • 
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begin  (Loadlt? 

clrscri  Y  «•  3; 

X  i«  1;  tMpprob  ' 

Assi gn (acti veprobl emf i le, 

concat (f iledri ve, 'iprobs.txt  * ) ) ; 

“  set (Acti veProbl emFi le) ; 

(f i lesize (acti veprablemf  ile) )  >  0  then 
begin  <If  the  filesize  statement? 
write < 'PROBLEM') | 
tempprob  : =  '  ' ; 

while  not  EOF (Acti vePr obi emFi le)  do 
begin  {While  statement? 

read (Acti veProbl emFi le, members) j 
reallytemp  : * 

concat (members. problem+members. choi ce) ; 
if  (tempprob  <>  reallytemp)  and 

(members. choice  ■  alternative)  then 
begin 

gotoxy (X,Y) ; 

write (members. problem) ; 

Y  **  Y  +  1; 
end; 

tempprob  :■  reallytemp; 
if  Y  >  10  then 
begin 

Y  :=*  3; 

X  :*>  X  +■  12; 

gotoxy (x,l);  wri te <  PROBLEM ') ; 
end; 

end; 


snd ; 


cl ose (acti veprobl emf ile) ; 

*nd;  Clf  the  filesize  statement? 
CLoadlt? 
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procedure  DeleteAProblem; 


(********•******■****♦**■**■»#****#*■»*****•***•»**♦■»**■«•********■»*«• 


*  PROCEDURE 

*  SUPPORTS  PROGRAM 

*  LOCAL  VARIABLES 

* 

#  GLOBAL  VARIABLES 


* 

«  ARRAYS  USED 
«  FILES  ACCESSED 

* 

*  EXTERNAL  CALLS 

*  EXTERNAL  FILTERS 
«  CALLED  FROM 

*  PURPOSE 

* 

* 

* 

* 

* 

» 

* 

* 

# 

* 


:  DELETEAPROBLEM  * 

s  BTOUCH. PAS  * 

s  SHORTNAME ,  TEMPMEMBER,  TEMPI,  * 

CHECKED,  COUNTS  * 

s  Z,  INPUTSTRING,  STOPPROG,  MEMBERS  * 

PROBNAME,  FILEDRIVE.  NEWSTRING,  * 

ALTERNATIVE  * 

s  NONE  * 

*  TEMPROBLEMFILE,  CHECKFILE,  * 

ACTIVEPROBLEMFILE  * 

s  LOADIT,  WARNING,  NOFILES  * 

s  FILTER9. LIB  * 

:  PROBMAN I PULAT I ON  * 

s  THIS  PROCEDURE  ALLOWS  THE  USER  TO  * 

SELECT  A  PROBLEM  DISPLAYED  ON  * 

THE  SCREEN  FROM  THE  PROCEDURE  * 

'LOADIT*  FOR  DELETE I ON.  IF  THE  * 

USER  CHANGES  HIS  MIND  ABOUT  * 

DELETING  A  PROBLEM,  HE  ONLY  HAS  * 

TO  PUSH  THE  RETURN  KEY  AND  NO  * 

FILES  WILL  BE  DELETED.  * 

CONFIRMATION  OF  THE  DELETED  * 

PROBLEM  IS  GIVEN  AND  THE  * 

REMAINING  PROBLEMS  ARE  AGAIN  * 

DISPLAYED.  # 


a********************#************************************) 


var 

SHORTNAME 

TEMPPROBLEMF I LE 

TEMPMEMBER 

TEMPI 

CHECKFILE 

CHECKED 

COUNTS 


s  STRINGC73; 
i  file  o-f  PROBREC; 
s  PROBREC; 
s  STRING12: 
i  TEXT| 

:  BOOLEAN; 
s  INTEGER; 


begin  {DeleteAProblem 3 

checked  ; =  false;  counts  ;•  0:  Load  It; 

Reset (ActiveProblemFi le) ; 
z  ; ■  (f i lesize (acti veproblemf i le) > ; 
close (acti vepr obi emf i le)  ; 
if  z  >  0  then 

begin  Ilf  the  filesiza  statement.; 
got ox y ( 1,12); 

wri te ( 'CAUTION !! !  Entering  a  problem  name  from 

thi s  list.  Mill'); 

gotoxy (1,13); 

wri te ( 'delete  ALL  files  with  that  name.'. 

To  quit  without  deleting'); 
gotoxy ( 1 , 14 > ;  write (a  probl em , press  F10. 

repeat 

gotoxy (1,16); 


write< 'Enter  the  problem 

you  wish  to  deletes  *); 

repeat 

getthekeys ( Inputstr i ng , 7) ; 
shortName  : a  inputstring} 
gotoxy (40, 16) ; 

until  (ord(shortnameCll)  >  32)  or  (stopprog); 
a  :*  2} 

probname  :*  short NameC 1 3 ; 

while  (shortnameCal  <>  chr(32>)  and  <a<8)  do 
begin 

probnaow  s » 

concat (probname, shortnaee Cal) ; 
a  s-  a  +  lj 
end; 

if  not  stopprog  then 

begin  <if  not  stopprog} 

Assign (acti veproblemf ile, 
concat (filedri  ve, ' xprobs. txt ' ) ) ; 
reset (Acti veProblemFile) ; 

Assign (tempproblemf ile, 
concat (fi ledrive  itempprob.txt ')) ; 
rewrite(tempProblemFile) j 
while  not  EOF (acti veproblemf ile)  do 
begin  {While  Statement} 

read (Acti veProblemFile,  members); 
temp member  : -  members; 
if  (members. problem  *  probname)  then 
begin 

NewString  i  * 
pr obname+al ter nat i ve+ 

*  +m embers.  member ; 

Assign (kriteriaf i le, 
concat (fi ledrive, 's', 
newstring) ) ; 

{41-} 

erase (Kri ter iaFile) s 
{4I+> 

if  lOresult  *  0  then 
checked  t ■  true; 

end; 

if  (members. problem  <>  probname)  or 
(members. choice  <>  alternative) 
then 

write (Temp Pr obi emFi le, 
temp member ) ; 

end;  {While  Statement} 
if  checked  then 

begin  {if  checked} 

tempi  s«  pr obname+al ter native+ ‘ . zzq ' ; 
Assi gn (checkf i 1 e, concat ( f i 1 edr i ve, V , 
temp  I) ) ; 

{41-} 

erase (checkf i le) ; 

{41+} 
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if  IOrasul t  ■  0  than 
checked  «■  trua; 
tanpl  : *  probnamt+'.zzw'; 

Assign (checkf i le, concat (f iledri ve, ' 
tempi ) >  j 

C*I-> 

erase (checkf ila) ; 

C*I+> 

if  IOrasul t  *  0  than 
checked  : *  trua; 

tempi  i ■  probname+al tarnati ve+ ' . zzx 
Assign (checkf ila, concat (f iledri va, ' 
tempi) ) ; 

«I-> 

erase (checkf ila) ; 
f*I+> 

if  IOrasul t  ■  0  than 
checked  :■  trua; 

tempi  i ■  probname+al tarnati ve+ ' . zzz 
Assign (checkf i la, concat (f iledri va, ' 
tempi) ) ; 

<*I-> 

erase (checkf ila) ; 

<#!«■> 

if  IOrasul t  «  0  than 
checked  i ■  trua; 
and;  Cif  checked! 

close<acti vaproblamf ila) ; 
closa(tampproblamf ila) y 
erase (acti vaproblamf ila) y 
rename (tempprob leaf i la, 'probs.txt ' ) ; 
if  checked  then 
begin 

loadit; 

gotoxy ( 12, 14) ; 

Mrite( 'The  Problem  ',probname,‘ 
has  been  deleted.'); 
del  ay ( 3000 ) $ 
end; 

end;  <if  not  stopprog! 
if  not  (checked)  and 
not  (stopprog)  then 
warning; 

counts  : ■  succ (counts) ; 

until  (checked)  or  (stopprog)  or  (counts  >  Z) : 
end  (If  the  filesize  statement) 

else 

nofiles; 

CDeleteAProblem! 


end; 


procedure  CheckAProblem; 


(***«************#*•»****##**#*##*#************-»•»*-»«"»•»****#** 


*  PROCEDURE  :  CHECKAPROBLEM  * 

«  SUPPORTS  PROGRAM  s  BTOUCH.PAS  * 

«  LOCAL  VARIABLES  :  SHORTNAME,  COUNTS  * 

*  GLOBAL  VARIABLES  :  STOPGAP,  Z,  INPUTSTRING,  STOPPROG,* 

*  PROBNAME,  MEMBERS,  ALTERNATIVE,  Y  * 

*  ARRAYS  USED  :  NONE  * 

*  FILES  ACCESSED  :  ACTIVEPROBLEMFILE  * 

*  EXTERNAL  CALLS  s  LOADIT,  WARNING,  NOFILES  * 

*  EXTERNAL  FILTERS  :  FILTER9. LIB  * 

*  CALLED  FROM  s  PROBMAN I PULAT I ON  * 

*  PURPOSE  :  GIVES  AN  INVOCATOR  A  DISPLAY  OF  * 

*  MEMBERS  ON  A  SPECIFIC  PROBLEM  AND  * 

*  WHEN  THAT  MEMBER  LAST  ACCESSED  * 

*  HIS  PROBLEM.  * 


#*****#*#***#**#**#******###*#*******#**#**##****4#*#*##**) 

var 

SHORTNAME  s  STRINGC73 ; 

COUNTS  s  INTEGER; 

begin  {Check APr obi em> 

counts  0;  stopgap  s *  false:  Loadlt; 

Reset ( Ac t i vePr ob 1 emFi 1 e ) ; 
z  :■  (f i 1 esi ze (act i veprobl emf i 1 e) ) ; 
close (act ivepr obi emf ile) ; 
if  z  >  0  then 

begin  {If  the  filesize  statement! 

repeat 

gotoxy <1 , 12) ; 

write (Entering  a  Problem  name', 

’  from  this  list  will  tell  you'); 
gotoxy (1,13); 

write ('When  a  member  last', 

'  accessed  a  Probl em ' ) ; 
gotoxy (1,15); 

write ('Enter  the  name  of  the  Problem:  ’); 

repeat 

getthekeys( Inputstring, 7) ; 
short  Name  :  =»  inputstring; 
gotoxy (33, 16) ; 
if  stopprog  then 
stopgap  :»  true; 

until  (ord < shortnameC 1 3 )  >  32)  or  (stopprog1; 

a  :»  2; 

probname  :=  shortNameC 1 1 ; 

while  (shortnamelal  <>  chr(32))  and  (a<S)  do 
begin 

probname  := 

cone at (probname, snortnameC a 3 ) ; 
a  :=  a  +  1; 


Rtatt  (Acti  veProblemFi  le)  ; 

Hhila  not  EOF ( Act i veProblemFi le)  do 
bagin  {While  statement! 

read (Acti veProblemFile, members) ; 
if  (members, problem  »  probname)  and 

(members. choice  *  alternative)  then 
bagin 

if  Y  *  3  then  clrscr; 
gotoxy (14,1) ; 
write ( ' PROBLEM  MEMBER 

DATE ' ) ; 

stopgap  : ■  true; 

gotoxy (14, Y) ; 

write (members. problem) ; 

gotoxy (25, Y) ; 

write (members. member) ; 

gotoxy (34, Y) ; 

writeln (members. datel ine) ; 

Y  s-  Y  +  1* 
if  Y  >  11  then 
begin 

gotoxy ( 16,16) ; 
write ('Press  RETURN  ta 
continue ' ) ; 

getthekeys (inputstring , 1 ) ; 
clrscr;  Y  :=*  3; 

end; 

end; 

end;  {While  statement! 
close (acti veproblemfile) ; 
if  not  (stopgap)  and  not  (stopprog)  then 
warning; 

counts  : -  counts  +  1; 

until  (stopgap)  or  (counts  >  2)  or  (stopprog); 
if  not  (stopprog)  and  (stopgap)  then 
begin 

gotoxy (16, 16) ; 

write( 'Press  RETURN  to  continue.'); 
getthekeys (inputstring, 1) ; 
end; 

end  {If  the  filesize  statement! 

else 

nof  i  les; 

end;  {CheckAProblem! 
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procedure  Del eteAMember ; 


(####♦####*####*#####################################*###*## 


*  PROCEDURE 

*  SUPPORTS  PROGRAM 

*  LOCAL  VARIABLES 

* 

*  GLOBAL  VARIABLES 

* 

* 

*  ARRAYS  USED 

*  FILES  ACCESSED 

*  EXTERNAL  CALLS 

*  EXTERNAL  FILTERS 

* 

*  CALLED  FROM 

*  PURPOSE 

* 

* 

* 

* 

* 


DELETEAMEMBER  * 
BTOUCH. PAS  * 
SHORTNAME,  FILECHECK,  MAGGIE,  * 
COUNTS,  MARGARET,  TEMPMEMBER  * 
INPUTSTRING,  Z,  STOPGAP,  STOPPROG,* 
PROBNAME,  ALTERNATIVE,  MEMBERS,  * 
NEWSTRING  * 
NONE  * 
TEMPPROBLEMF I LE ,  ACT I VEPROBLEMF I LE* 
FILTER9.LIB  * 
LOADIT,  DISPLAYIT,  NOFILES,  * 
GETTHEKEYS  * 
PERSMAN I PUL AT I ON  * 
THIS  PROCEDURE  ALLOWS  THE  USER  TO  * 
SELECT  A  MEMBER  AND  PROBLEM  FROM  * 
THE  SCREEN  FROM  THE  PROCEDURE  * 
'LOADIT'  FOR  DELETE I ON.  THIS  * 
WILL  ONLY  DELETE  ONE  MEMBER  FOR  * 
THE  SPECIFIC  PROBLEM  SELECTED.  * 


*#*♦#*###*#####*###**###***##**#****#####*♦*♦*##***#*##***) 


var 

SHORTNAME 
FILECHECK,  MAGGIE 
COUNTS 

TEMPPROBLEMF I LE 

TEMPMEMBER 

MARGARET 


*  STRINGC73; 

:  BOOLEAN; 

s  INTEGER; 
s  file  of  PROBREC; 
:  PROBREC; 

:  INTEGER; 


begin  CDel eteAMember! 

Reset (Acti veProblemFile) ; 
z  s-  (f i 1 esi ze (acti veproblemf i  1  e> )  ; 
close (acti veproblemf i le) ; 
if  z  >  0  then 

begin  flf  the  filesize  statement! 
repeat 

Margaret  ;*=  0;  Maggie  s 3  false; 

loadi t ; 

stopgap  :=  false;  counts  0; 

gotoxy (6,12); 

write('To  quit  without  deleting  a  Member, 
Press  F10. ' ) ; 

repeat 

gotoxy (6,14)  ; 

write ('Enter  the  Member' 's  PROBLEM:  '); 

gotoxy  (34, 14)  ; 

repeat 

getthekeys  < Inputstri ng , 7) ; 
shortName  :=  inputstring; 


gotoxy (34, 14) ; 

until  (ordlshortnameCll)  >  32)  or 
<  stoppr og ) ; 

a  :«  2;  probnaoie  :=  sh or t Names C  1  3 ; 

while  (shortnameEa!  <>  chr (32) )  and  (a<3) 
do 

begin 

probname  :  = 

concat ( probname , shortname  CaJ > ; 
a  :  ™  a  +  1 5 
end; 

reset  (acti  veproblemf i  le) ; 
while  not  EOF (acti veproblemfi le)  do 
begin  {While  Statement! 

read (Acti veProblemFile,  members) ; 
if  (members. problem  ~  probname)  and 
(members. choice  -  alternative) 
then 

mar gar et  s=  succ (margaret ) $ 
end;  {while  statement! 
if  margaret  *  2  then 
begin 

maggie  :=  true; 
counts  : =  3; 

end 

else 

stopgap  :  =  true; 

if  not  (stopgap)  and  not  ( stoppr og)  and 
not  (maggie)  then 
warning; 

counts  *»  succ  (counts)  ; 
until  (counts  >  2)  or  (stopgap)  or 
(stopprog) ; 

cl ose (act i veprobl emf i 1 e) ; 
counts  :=  0; 

if  (maggie)  and  not  (stopprog)  then 
begin 

gotoxy (1,15);  textbackground (red)  ; 
writeC  DELETION  ABORTED!  Committee  . 

'would  have  less  than  2  members  '); 
delay (4000) ; 

textbackground (blue) ;  gotoxy (1,15); 
clreol ; 

stopprog  i-  true; 
stopgap  :=  false; 
end; 

if  stopgap  then 

begin  {if  stopgap! 
filecheck  :=  false; 
displayit; 
repeat 

gotoxy (1,14); 

write ('Enter  the  MEMBER', 

initials  that  are  to  be 
removed:  ' ) ; 
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repeat 

getthekeys ( Inputstring ,3) ; 

NewName  : =  input string; 
until  (ord (shortnameC 1 1 )  >  32)  or 
(stopprog) ; 

reset (Acti veProblemFi le) ; 

Assign  (tempproblemf  ile, 

concat  <-f  i  1  edr i  ve  ,  ' :  temppr ob . tx  t '  >  )  ; 

rewrite(tempProblemFile) ; 

while  not  EOF  (acti  vepr obi emf  ile)  do 

begin  (While  Statement! 

read (Acti veProblemFi le,  members) ; 
tempmember  :=  members; 
if  (members. pr obi em  =  probname) 
and 

(members. member  =  NewName) 
and 

(members. choice  =  alternative) 
then 
begin 

filecheck  :=  true; 
NewString  := 
memb  er  s . pr  ob 1 era+ 
al ternati ve+ 

'.  '+members. member; 

Assi gn ( kr i ter i af i 1 e , 
concat  (filedrive, 

' : ' , newstring) ) ; 

C$I-> 

erase (Kri teriaFi le) ; 

if  IOresult  =  0  then 
stopgap  :  =  true; 

end; 

if  (members. problem  <>  probname) 
or 

(members. member  <>  NewName) 
then 

write (TempPr obi emFi le , 
tempmember ) ; 

end;  (While  Statement! 
close (acti veproblemfi  1  e) ; 
if  not  (filecheck)  and 
not  (stopprog)  then 
begin 

gotoxy (14,15) ; 
tex tbackground (red) ; 
write('  Member  is  not  on  that 
commi ttee  ' > ; 
del  ay (4000) ; 
textbackground (blue) ; 
gotoxy (15,15) ; 
clreol ; 
end; 

if  filecheck  then 


begin 

clracrj  gotoxy (1,9); 

write ('The  Member 
' , NewName , 

'  in  the  committee  handling 
the  problem ' > ; 
gotoxy  (1 , 113) ; 
write (probname, '  has  been 
deleted. ' ) $ 
del  ay  <2000) ; 
end; 

counts  succ  (counts) ; 
until  (counts  >  2)  or  (filecheck)  or 
(stopprog) ; 

close  (temppr obi em-fi  le)  ; 
erase (activepr obi emfile) ; 
rename (temppr obi emfi le, 
concat (f i ledri ve  , ' : probs.txt ' ) ) ; 
end;  (if  stopgap! 
until  stopprog; 

end  £I-f  the  -filesize  statement! 
else 

no-files; 

end;  {Del eteAMember ! 


procedure  AddAMember; 

(*********#**#*****#********#**#*#****-**##*-«-**«--»**-»**###**** 


* 

PROCEDURE 

ADDAMEMBER 

* 

* 

SUPPORTS  PROGRAM 

BTOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

TEMPNUM ,  SHORTNAME, 

* 

* 

TEMPDEF I N I T I ON ,  CODE, 

* 

* 

VERTZ,  FILECHECK,  TEMPNUMBER, 

* 

* 

TEMPMEMBER 

* 

* 

GLOBAL  VARIABLES 

Z,  COUNT,  L I MM IT,  PROBNAME, 

* 

* 

ALTERNATIVE,  MEMBERS,  STOPPROG, 

#• 

* 

INPUTSTRING,  MOVEOVER,  NEWSTRING 

* 

* 

ARRAYS  USED 

NONE 

* 

* 

FILES  ACCESSED 

ACTIVEPROBLEMFILE,  KRITERIAFILE 

* 

* 

EXTERNAL  CALLS 

LOADIT,  WARNING,  DISPLAY IT , 

* 

* 

NOFILES,  GETTHEKEYS 

* 

* 

EXTERNAL  FILTERS 

FILTER9. LIB 

* 

« 

CALLED  FROM 

PERSMAN I PUL AT I ON 

* 

* 

PURPOSE 

THIS  PROCEDURE  ALLOWS  THE  USER  TO 

* 

» 

SELECT  A  PROBLEM  THAT  IS  ALREADY 

* 

ACTIVE  AND  ADD  A  MEMBER.  THE 

* 

* 

USER  IS  ALLOWED  TO  VIEW  ALL 

•* 

* 

PROBLEMS  AND  THE  MEMBERS  ON  THAT 

* 

* 

COMMITTE. 

# 

TEMPNUM  s  STRINGC23; 

SHORTNAME  s  STRINGC73 ; 

TEMPDEF I N I T I ON  :  STRINGC593 ; 

CODE,  VERTZ  s  INTEGER; 

FILECHECK  :  BOOLEAN; 

TEMPNUMBER  ;  INTEGER; 

TEMPMEMBER  s  STRINGS; 

begin  £ Add AMember 1 

Load I t ; 

filecheck  : =  false; 

Reset (Acti veProblemFile) ; 
z  : =  (f i 1 esi ze (acti veprobl emf i le) ) ; 
close (acti veproblemf ile) ; 
if  z  >  0  then 

begin  -Clf  the  filesize  statement! 
gotoxy ( 1 , 12) ; 

Write ( 'Please  enter  the  name  of  the  problem  to  which 
you ' ) ; 
gotoxy ( 1 , 13) ; 

write ('wish  to  add  a  member.  '); 
count  0;  limmit  :  ==  0; 

repeat 

gotoxy (1,14); 

Write ('The  name  must  be  listed  above:  '); 

repeat 

getthekeys ( Inputstring ,7)  ; 
short Name  :=  input string; 
gotoxy (33, 14) ; 

until  (ord(shortnameC13>  >  32)  or  (stopprog) ; 
a  :=  2;  probname  shortNameC 1 3 ; 

while  (shortnameCal  <>  chr(32>)  and  (a<8)  do 
begin 

probname  :=  concat (probname , shortnameCal > ; 
a  :  =  a  +  1 ; 
end; 

Reset (Acti veProbl emf i le) ; 
while  not  EOF (acti veprobl emf i 1 e)  do 
begin  -Cwhile  statement! 

Read (Acti veProbl emFi le, Members) ; 
if  (Members. Probl em  =  ProbName)  and 

(members. choice  =  alternative)  then 
begin 

tempdef i ni t i on  :=  members. def i ni ti on 
limmit  :=  limmit  +  1; 
filecheck  :=  true; 
end; 

end;  Cwhile  statement! 
close(Acti veProblemf ile) ; 
if  not  (filecheck)  and 
not  (stopprog)  then 
warni ng; 

count  :=  succ (count); 

until  (filecheck)  or  (count  >  2)  or  (stopprog); 


if  filecheck  then 

begin  {if  filecheck  statement! 
displayi t; 
repeat 

repeat 

gotoxy (1 , 15) ; 

Write('How  many  members  do  you', 

'  wish  to  add  to  this  committee?  '); 
getthekeys ( i nputstri ng ,2) ; 
tempnum  :  =  i nputstri ng; 
gotoxy (56, 15) ; 

val (tempnum, tempnumber , code) ; 
if  (limmit  +  tempnumber  >  15)  then 
begin 

gotoxy (7, 16) ;  tex tbackground (red) $ 
write<*  There  will  be  over  15', 

'  members  on  that  committee  '); 
del  ay  (4013(3)  ; 
textbackground (blue) ; 
gotoxy (7, 16) ;  clreol; 
filecheck  :  =  false; 
stopprog  :=  true; 
end; 

until  (filecheck)  or  (stopprog) ; 
until  (tempnumber  >  0)  and  (tempnumber  <  14)  or 
(stopprog) ; 
if  not  stopprog  then 

begin  {if  not  stopprogl 

moveover  17;  count  :=*  0; 

vertz  : =  15; 

GotoXYd  ,  15)  ;  clreol; 

repeat 

limmit  :  =  0; 

GotoXYd,  15)  ; 

Write( 'Members  names: 
gotoxy (moveover , vertz )  ; 
getthekeys ( I nputstri ng ,3)  ; 
tempmember  :=  i nputstri ng; 

Reset ( Acti veProbl emf i 1  a) ; 
while  not  EOF (acti veproblemfi le)  do 
begin  {while  statement! 

Read (Acti veProbl emFi le, Members) ; 
if  (Members. member  =  tempmember) 
and 

(members. probl em  =  probname) 
and 

(members. choi ce  =  alternative) 
then 

limmit  :=  limmit  +  1; 
if  tempmember  =  '  '  then 

limmit  :=  130; 
and;  Cwhile  statement! 

cl ose (Acti veProbl emf i 1  a) ; 
if  (limmit  =  0)  and 
not  (stopprog)  then 


begin 

Members. Member  *■  tempmem ber; 
nMbera.  Checkitati  **  i  ; 
iMUberi. datel i ne  :«  'Empty  Film'; 
members. def  l  nit  ion  s« 
tempdef ini tion; 

■eabera. problem  :*  probnams; 
Mflbera. choice  s»  alternative; 
reset  (acti veprobl emf  ile)  ; 

Seek  ( Acti  veProblemFi  le, 

Fi 1 esi ze (Act i veProbl emFi 1 e) ) ; 
Write (Acti veProblemfi le, Members) ; 
close  (Acti  veProbl em-f  ile)  $ 
NewString  i * 
probname-^al  ter  nat  i  ve+ 

*.  ’-^members,  member; 

Assi  gn  ( kr i  ter  i  af  i  1  e , 
concat  (f iledrive,  ' :  '  ,newstring)  )  ; 
rewrite(Kri teriaf i le) ; 
close  (Kri  teria-f  i  le) ; 
moveover  :=  moveover  +  5; 
count  : *  count  +  1 ; 
if  count  =  8  then 
begin 

vertz  : =  16; 
moveover  : =  17; 
end; 

end 

else 

if  not  stopprog  then 
begin  (warning! 
got ox y ( 12, 13) ; 
textbackground (red) ; 
if  limmit  =  100  then 

writs* '  You  must  enter 
member’ 's  initials  ') 

el  se 

write('  Member  is  already 
on  that  committee 
del  ay (4000) ; 
textbackground (blue) ; 
gotoxy ( 12, 13) ;  clreol; 
end;  (warning! 

until  (count  =  tempnumber)  or  (stopprog); 
dispiayit;  deiav<4000>; 

end;  (if  not  stopprog! 
end;  (if  filecheck  statement! 

end  (If  the  filesize  statement! 

el  se 

nof i 1 es; 

end;  CAddAMember ! 
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Ma»awii«KiMM«aaasha^^ 


procedure  Check -for  Doubles; 


( a-****** 


* 

PROCEDURE 

: 

CHECKFORDOUBLES 

* 

* 

SUPPORTS  PROGRAM 

a 

a 

BTOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

• 

a 

NONE 

» 

* 

GLOBAL  VARIABLES 

• 

a 

STARTUP,  COUNT,  MEMBERS, 

* 

* 

ALTERNATIVE,  PROBNAME 

» 

* 

ARRAYS  USED 

a 

a 

NONE 

* 

* 

FILES  ACCESSED 

• 

ACTIVEPROBLEMFILE  »  'PROBS.TXT' 

» 

* 

EXTERNAL  CALLS 

z 

NONE 

» 

* 

EXTERNAL  FILTERS 

t 

NONE 

• 

« 

CALLED  FROM 

z 

NEWPROBLEM 

* 

• 

PURPOSE 

z 

THIS  PROCEDURE  PREVENTS  THE 

» 

* 

INVOCATOR  FROM  CREATING  A  PROBLEM 

* 

* 

WITH  A  DUPLICATE  NAME,  THEREBYE 

* 

* 

OVERWRITING  AN  ACTIVE  PROBLEM. 

• 

* 

IT  GIVES  THE  INVOCATOR  THE 

» 

* 

OPPORTUNITY  TO  RENAME  THE  NEW' 

* 

« 

PROBLEM.  IF  HE  CHOOSES  NOT  TO 

• 

* 

RENAME  THE  NEW  PROBLEM,  HE  IS  NOT 

* 

* 

ALLOWED  TO  CREATE  IT 

* 

*******»********«*************«*««»*«*■»****»■»«*«-*■»-»*■»»***«.) 


begin  (CheckFor Doubles! 

count  :»  1;  Startup  z*  false; 

Reset (Acti veProbleeFi le) ; 
while  not  EOF (Acti veProbleeFi le)  do 
begin  (While  statement! 

read (Acti veProbleeFi le, members) ; 
if  (members. problem  ■  probname)  and 

(members. choice  »  alternative)  then 
Startup  :»  true; 
end;  (while  statement! 
close (acti veprobl emfi le) ; 
end;  (CheckForDoubl esJ 


procadura  NawProblam; 


<**♦♦*#****#****##*#**#*##♦♦####*###*♦******#♦♦##*■*****#***# 


PROCEDURE  t 
SUPPORTS  PROGRAM  : 
LOCAL  VARIABLES  : 


GLOBAL  VARIABLES  : 


ARRAYS  USED  I 

FILES  ACCESSED  i 

EXTERNAL  CALLS  t 

EXTERNAL  FILTERS  t 

CALLED  FROM  : 

PURPOSE  I 


NEWPROBLEM 
BTOUCH. PAS 

TEMPNUM,  SHORTNAME,  CODE, 
TEMPNUMBER,  CHM,  TEMPMEMBER, 
TEMPDEF 

INPUTSTRING,  ANONYMOUS,  STOP,  A, 
PROBNAME,  CHATOK,  STARTUP,  CH, 
STOPPROG,  MEMBERS,  Y,  MOVEOVER, 
COUNT,  ALTERNATIVE,  FILEDRIVE, 
NONE 

ACT I VEPROBLEMF I LE , 
CHECKFORDOUBLES,  GETTHEKEYS, 
INTROSCREEN,  SETFILE 
FILTER1 .LIB,  FILTER7. LIB, 
FILTER4?. LIB 
PROBMAN I PULAT I ON 

ALLOWS  THE  I NO VC A TOR  TO  CREATE  A 
NEW  PROBLEM  FOR  EITHER 
ALTERANT IVES  OR  CRITERIA. 


* 

* 

» 

* 

» 

* 


« 


* 

* 

» 


» 

» 


var 

TEMPNUM 
SHORTNAME 
CODE , TEMPNUMBER 
CHM 

TEMPMEMBER 
TEMPDEF 

labal  100; 

bagin  (NawProbl ami 

Anonymous  :  ■  Falsa;  {Stop  ;*  Truaj)  clrscr; 

Assign (Acti vaProbiamFi la, 

concat  :  f i I edrive, Probs.txt')); 

IntroScraan;  100:  GotoXY<2,2); 

Wri ta < 'Plaasa  antar  tha  nama  of  tha  naw  problam. '); 
GotoXY (2,3) ; 

Writat'Tha  nama  must  not  axcaad  saven  lattars:  *); 

got ox y (50; 3) ; 

rapaat 

gatthakavs < Inputstri ng ,  7) ; 
short Nama  ; »  inputstring; 
got ox y (50,3) ; 

until  (ord (short nama C 1 3 >  >  32)  or  (stopprog); 

a  :*  2;  probnama  :*  short Nama C 1 ] ; 

whila  (shortnamaCal  <>  chr (32) )  and  (a^B)  do 
begi  n 

probnama  :=  ooncat (probname , shortnamaC a  I ) ; 
a  a  1 ; 
and; 


:  STRING! 2 I ; 

:  STRINGI73; 

i  INTEGER; 
i  CHAR; 
i  STRINGS; 
l  STRING! 581 ; 
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ChatOK  s*  Truey 


ChackFor  Doubl  M| 


«  AT  THIS  POINT  THE  PROGRAM  HAS  GONE  AND  CHECKED  TO  SEE  IF* 

♦  THERE  ARE  ANY  EXISTING  PROBLEMS  WITH  THE  SAME  NAME  .  IF* 

•  THERE  ARE,  THEN  THE  BOOLEAN  VARIABLE  Startup  IS  SET  TO* 

*  TRUE  AND  THE  NEXT  'IF'  STATEMENT  IS  ACTIVATED.  * 


if  Startup  than 

bagin  (Embedded  If  Startup  Stataaant  Warninq! 
window (6,4,74 ,21 ) y  tax tback ground (rad) ; 

cl r scry 
gotoxy  (6,5)  y 

write!* ATTENTION! • !  THERE  IS  A  FILE  ALREADY  WITH 
THE  NAME  *,probnaae)y 
gotoxy <6, 7) y 

write  <  *  IN  OUR  FILES.  IN  ORDER  TO  GO  ON,  YOU  WILL 
HAVE  TO','  GIVE  THIS  1 ) s 
gotoxy  <6, 9) y 

write (PROBLEM  A  NEW  NAME  OR  DELETE  THE  OLD  ONE. 

DO  YOU' , *  WISH  TO' ) y 
gotoxy  <6, 1 1 ) y 

writs < 'CONTINUE,  GIVING  THE  NEW  PROBLEM  A  DIFFERENT 
NAME?','  Y/N ' ) y 

rapaat 

got  ox  y  <  66 , 1 1 )  ; 
gatthakavs  < Inputstr i ng , 1 ) y 
Ch  i ■  input stringy 
cha  i"  chy 

until  ChH  in  C  'Y', *N'3y 
if  ch  -  *89  than 


bagin 

t ax tback ground <blua) y  cl r scry 

window < 12, 5. 73,20) :  cirscr:  goto  130: 

and: 

and:  (Embedded  If  Startup  Stataaant  Warning! 


<  **#***#*****************#**#******■***•****•**•****■»•*•*■***■****** 

*  AT  THIS  POINT  THE  PROGRAM  HAS  GONE  AND  CHECKED  TO  SEE  ‘ 

*  IF  THERE  ARE  ANY  EXISTING  PROBLEMS  WITH  THE  SAME  NAME  .  * 

*  IF  THERE  ARE  NOT,  THEN  THE  BOOLEAN  VARIABLE  Startup'  * 

*  IS  SET  TO  FALSE  AND  THE  NEXT  IF  STATEMENT  IS  ACTIVATED.  * 

a*******************#**************************#**********) 


if  not  Startups  and  not  ’stopproq>  then 

begin  CEmoedded  If  not  Startup  Statement; 

Resat  <Acti veProblemFi la) y 

Seek  (Act  i  veProbl  emFi  le,Filesize(Acti  vePr obi  etnFi  1  e  >  > 
member s. pr obi em  :»  probnamey 
GotoXY  <2 , 4> y 

Wri  tel  n  ('  ?1  ease  give  a  one  line  definition  c  f 
the  probi em: ' i ; 
gctoxy (2,5) y 

getthekeys ( Input stri ng , 58) y 
tempDef  s*  inputstring: 


2  a*5 


gotoxy (2,6) ) 

mt it* ('Do  you  wish  to  elaborate  on  that 
definition?  *>y 

riput 

gotoxy (39,6)  y 

gatthekeys ( Inputstring , 1 ) y 
ch  * ■  input string; 
cha  **  ch; 

until  ChM  in  C  Y' ,  H' 3* 

if  ch  •  *Y*  than  scrol lbox ( 13, 1 1 ,51 , ‘ z ' ) ; 
window* 12,3,73,20) ;  t ax t background (blue; ; 
gotoxy (2,7) y 

Writ* ('How  Many  members  coaprisa  this 
COSSittM?  *)| 

rapaat 

gotoxy (58,7) y 

gatthekeys (input string, 2) y 
tampnua  : ■  inputstringy 
val (tempnum, taMpnumbar ,coda) ; 
if  teapnumber  <  10  than 
bag  in 

gotoxy (58, 7) y 

clraol y 

wri t*( '  ' ) y 

taxtbackground (yal low) ; 
wr i t a ( taapnuabar  > ; 
taxtbackground (biua) j 
and; 

until  (taapnuabar  >  1)  and  (taapnuabar  <  16) y 
SotoXY (2,8) y  Writ*(  Members  naaasi  )y 
count  »■  0y 
Y  *«  8y 

movaovar  *»  37 y 
rapaat 

lirnait  i*  0; 
if  Y  >  10  than 
bagin 

movaovar  *»  .movaovar  -  8* 

v  •»  a, 

GotoXY (2,8) ; 

Wri ta ( 'Meabars  namast  '); 
and; 

rapaat 

got ox v (movaovar ,Y) j 
gatthakays  ( Inputstring , 3) ; 
shortNama  :*  input string; 
taapaaabar  > ■  inputstringy 
until  ord (shortnamal 1 1 )  *  32y 

Reset  < Ac t i vaPr obi amf i 1  a) y 
whila  not  EOF ( act i vaproblamfi la)  do 
bagin  Cwhila  statement) 

Read  (Act;  y«Praoi  emF*  1  & ,  lamtiars;  ; 
if  Hampers,  nemfcar  =  tempmemoe*^  ’  arc 
(member s. probl am  3  probnama)  and 
>  Mmbar  s .  chai  ce  =  ai  tarnat  i  .-a  <  tr.er. 
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liaait  t-  liMlt  ♦  1| 
and |  (Mhila  itatawnt) 
cloaa(ActivaProblaaf  ila)  i 
if  (liaait  -  8)  and 

not  (atopprog)  than 
bagin 

Haabar a. Haabar  i ■  taapaaabar t 
Haafaara. Chackstata  t ■  'a'y 
aaabara. datal ina  : ■  'Empty  Fila'y 
maabara. protal aa  i-  probnamai 
aaabara. dafi nit ion  i ■  taapdaf; 
aaabara.choica  t ■  altarnativay 
aaabara. chackchanga  i ■  N' j 
raaat (acti vaproblaaf i la) i 
Saak (Acti vaProblaaFi la, 
Filaaiza(ActivaProblaaFila) ) | 

Mri ta( Acti vaPr obi aaf i la, Maabara) y 
cloaa (Acti vaPr obi aaf i la) y 
NanOtring  *  ■  probnaaa+al  tarnati  va+ 

Aaaign  (kri  taria-f  i  la. 

concat ( f  i  1 adr iva,  t, nawatr ing) ) ; 

rawri ta (Kri taria-f  ila)  i 

cloaa (Kri tariaf i la) y 

count  i  ■  count  «■  ly 

Y  *»  Y  «•  ly 

and 

alaa 

bagin  Caarni ng> 

gotoMy ( IT ,16) y  tax t background (rad) y 
arita( 'Haabar  ia  alraady  on  that 
coaai ttaa ' ) y 
dal ay (4888) y 
tax tbackground (blua) ; 
gotoxy ( 13. 16) y  clraoly 
and  y  Camming} 

until  (count  ■  taapnunbar )  or  (atopprog) t 
i f  taapnuabar  -  2  than 
QotoXY (2,18) 

alaa 

gotoxy (2, 1 1 ) y 

aritaC'Wili  coaaunicationa  and  cntaria  ba 
anonyaoua?  ' ) y 

rapaat  (anonyaoua  coaaunicationa''} 
if  taaonuabar  *  2  than 
got ox  y  <  59 , 18) 

al  aa 

gotoxy (59, 1 1 ) y 
gatthakaya ( Input atr i ng , 1 ) y 
ch  i ■  input atr ingy 
chm  i ■  chy 


andy 


If  Ch  ■  *89  than 
bag  in 

Anonymous  x ■  Truay 
satfilay 
andy 

andi  CEmbadded  If  not  Startup  Statamant) 
CNawPr oto l am) 


procadura  varif ythanamay 


( #**♦♦♦*#♦♦♦*#***•**♦♦•****#**♦♦******•»******#**************■»* 


•  PROCEDURE 

•  SUPPORTS  PROGRAM 

•  LOCAL  VARIABLES 
«  GLOBAL  VARIABLES 


*  ARRAYS  USED 

*  FILES  ACCESSED 

*  EXTERNAL  CALLS 

*  EXTERNAL  FILTERS 

*  CALLED  FROM 

*  PURPOSE 


*  VERIFYTHENAME 
i  B TOUCH. PAS 
>  SHORTNAME,  COUNTS 
i  STOPGAP,  INPUTSTRING,  PROBNAME, 
MEMBERS,  ALT,  STOP PROG,  FILE CHECK 
NEWNAME,  PR INTONE 
i  NONE 

x  ACT I VEPROBLEMF I LE 
i  DISPLAY IT,  GETTHEKEYS 
x  FILTER9. LIB 

x  PR INT ALTERNATIVES, PR INTCHATTERBOX 
x  CHECKS  THE  ACT I VEPROBLEMF I LE  AND 
VERIFIES  THAT  A  MEMBER  IS  ON  A 
CERTAIN  COMMITTEE. 


* 

* 

* 

* 


* 

# 

» 

* 


* 

* 


var 

SHORTNAME 

COUNTS 


STRINGC73  > 
INTEGER | 


bagin  Cvar 1 f ythanaaa) 

stopgap  :*  falsa;  counts  x *  0; 

rapaat  Ctill  filanama  varif iad) 

gotoxy (33, 16) y 

rapaat 

gatthakays  < Inputstring , 7) ; 
short Nama  x»  input stringy 
gotoxy (33, 16) y 

until  (or d (short namaC 1 3 ;  >  32)  or  (stopprog/y 
a  «■  2;  probnasa  i  *  short  NamaC  1 1  y 

while  (shortnamaCa)  <>  chr(32))  and  (a<8)  do 
bagin 

probname  ;■  concat (pr obnama , short namaC a Z ) ; 
a  x»  a  +  ly 
andy 

rasat (act i vaproblaaf i 1  a) y 
Mhila  not  EOF (act i vaproblaaf i la)  do 
bagin  {While  Statement) 

raid ( Act i vaProb 1 smF: l a ,  nwnDers) ; 
if  (mam bars. probiam  *  proonama)  and 
(aambars. choi ca  *  alt)  than 
stopgap  : *  true; 


•nd ; 

if  not  (stopgap)  and  not  (stopprog)  than  warning; 
counts  : *  succ (counts) ; 

{till  filename  verified! 
until  (counts  >  2)  or  (stopgap)  or  (stopprog); 
close (act i veprobl emfi le) ; 
counts  a*  0; 

if  (stopgap)  and  (printone)  then 

begin  (if  stopgap  and  printone! 

filecheck  :»  false;  displavit; 

repeat 

gotoxy  (1 , 16) | 

write (Enter  the  MEMBER  initials 
of  the  files  * ) ; 
gotoxy (43,16) ; 

repeat 

getthekeys(Xnputstring,3) ; 

NewName  : ■  inputstring; 
gotoxy (43,16); 

until  (ord (newnameCl 3)  >  32)  or  (stopprog); 
reset ( Act i veProbl emFi le) ; 
while  not  EOF (acti veprobl emfi 1 e)  do 
begin  {While  Statement! 

read (Acti veProbl emFile,  members); 
if  (members. problem  *  probname)  and 
(members. member  *  NewName)  and 
(members. choice  *  alt)  then 
begin 

filecheck  i ■  true; 
stopgap  i *  true; 
end; 

end;  {While  Statement! 
close (acti veprobl emfi le) ; 
if  not  (filecheck)  and 
not  (stopprog)  then 
begi  n 

gotoxy ( 14,15);  text back ground (red ) : 
write*'  Member  is  not  on 

that  committee  '); 
del  ay (4000) ; 
textbackground (blue) : 
gotoxy ( 14 , 15) ; 
clreol ; 
end; 

counts  :*  succ ( counts/ ; 

until  (counts  2)  or  (filecheck)  or  stopprog/; 

end;  {if  stopgap  and  printone! 

(ver l f ythename) 
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end; 


procedure  printal ternati ves; 


(aHHHt******************************************************* 


*  PROCEDURE 

*  SUPPORTS  PROGRAM 

*  LOCAL  VARIABLES 

*  GLOBAL  VARIABLES 

* 

* 

* 

*  ARRAYS  USED 

*  FILES  ACCESSED 

*  EXTERNAL  CALLS 

* 

*  EXTERNAL  FILTERS 

*  CALLED  FROM 

*  PURPOSE 
« 

* 


PRINTALTERNATIVES  * 
BTOUCH.PAS  * 
SHORTNAME ,  TEMPALT,  ZCOUNT  * 
PR INTONE,  ALTERNATIVE,  ALT,  * 
STOPGAP,  STOPPROG,  NEWSTRING,  * 
PROBNAME,  FILEDRIVE,  NEWNAME.  Z,  * 
CRITERIA,  MEMBERS  * 
NONE  * 
ACTIVEPROBLEMFILE,  KRITERIAFILE  * 
LOAD IT,  VER I F YTHENAME ,  WARNING,  * 
NOFILES  * 
PRINTER (EXTERNAL  DEVICE)  * 
CHATMAN I PULAT I ON  * 
PRINTS  FILES  ON  SPECIFIC  MEMBERS  * 
ON  A  COMMITTEE  FOR  ALTERNATIVES,  * 
EITHER  COMPLETED  OR  IN  PROCESS.  * 


«*********#**#*****««*##*4MH»*#**«*#****-»**«*****#**-»**-»***) 


var 

SHORTNAME  s  STRINGC71; 

TEMPALT  :  CHAR; 

ZCOUNT  ;  INTEGER; 

begin  Cprintalternati ves) 
pr intone  :»  true; 

Reset (Act iveProblemFi le) $ 

zcount  j*  ( f  i  1  esi  ze  (acti  veprobl emf  i  1  e)  )  ; 
c lose  (act i  veprobl  em-f  i  1  e)  ; 
repeat  (main  repeat  statement > 

tempalt  : =  alternative;  alternative  :  =  alt; 

1 oadi t ; 

alternative  :=  tempalt; 
if  zcount  >  0  then 

begin  -Clf  the  filesize  statement) 
repeat 

stopgap  :  =  false; 
gotoxy (1,12); 

wri te ( 'Enter i ng  a  Problem  Name', 
from  this  list  will  print  that’); 
gotox v (1,13); 
wr 1 1 e  <  '  f i 1 e  for  vou ' ) ; 
got ox y (6,14) ; 

write('To  quit  without  printing  a  file. 
Press  F10. ' ) ; 

gotoxy ( 1 , 16) ;  clreol ; 

write( 'Enter  the  name  of  the  Problem:'); 
veri f ythename; 


i-f  (-fil ©check)  and  not  (stopprog)  then 
begin  {conditions  are  met} 
newstring  : = 

concat (probname+al t+ ' . ' +newname) ; 
assign (kriteriaf ile, 

f  iledri  ve+  ' :  '+newstring) ; 

Reset <kriteriaFile) ; 
z  :  3  fi lesize (kri teri afi le) ; 
i-f  z  >  0  then 

begin  {if  filesize} 

writeln (1st, 'PROBLEM  IS 
' ,probname) ; 
writeln  (1st ) ; 
wri teln  (1st ) ; 

while  not  EOF  (kri  teri  a-f  ile)  do 
begin  {While  statement > 
read  ( kr i  t er  i  a-f  i  1  e , 
cri teria) ; 
write (1st, 

criteria.critname, ' :  '); 

wri tel n (1 st , 
criteria. cri tde-f )  ; 
end;  {While  statement} 
end;  {if  filesize> 
close (kriteriaf ile) ; 
end  {conditions  are  met} 
else 

begin 

if  not  (stopprog)  then 
warning; 
end; 

{$I+> 

if  IOresult  *  0  then  stopgap  :*=  true; 
if  (z  *  0)  and  not  (stopprog)  then 
begin  {if  fi lesize  elseJ- 
gotoxy (21 , 15)  ; 
wri te( 'file  is  empty'); 
del  ay (3000); 
gotoxy (21,15) ; 
cl  reel ; 

end;  {if  filesize  else! 
until  (stopprog)  or  (stopgap); 
end  {If  the  filesize  statement} 
el  se 

nofiles; 

until  stopprog;  {main  repeat  statement} 

end;  {printai ternat i ves> 


procedure  printchatterbox ; 


(♦a-*#****-*********************#***************************** 


* 

PROCEDURE 

s  PRINTCHATTERBOX 

* 

* 

SUPPORTS  PROGRAM 

:  BTOUCH. PAS 

*■ 

* 

LOCAL  VARIABLES 

s  SHORTNAME,  TEMPSTRING,  TEMPALT, 

* 

* 

COUNTS,  ZCOUNT 

* 

* 

GLOBAL  VARIABLES 

s  PR INTONE,  ALTERNATIVE,  ALT, 

* 

« 

STOPGAP,  FILEDRIVE,  STOPPROG 

* 

* 

ARRAYS  USED 

:  NONE 

* 

* 

FILES  ACCESSED 

s  TEXTFILE,  ACTI VEPROBLEMFILE 

* 

* 

EXTERNAL  CALLS 

s  LOADIT,  VER IF YTHENAME,  WARNING, 

* 

* 

NOFILES 

* 

* 

EXTERNAL  FILTERS 

s  PRINTER (EXTERNAL  DEVICE) 

* 

* 

CALLED  FROM 

;  CHATMAN I PULAT I ON 

* 

* 

PURPOSE 

:  PRINTS  FILES  ON  SPECIFIC  PROBLEMS 

# 

* 

WHERE  THE  MEMBERS  HAVE  UTILIZED 

* 

* 

THE  CHATTERBOX. 

* 

******************HMt******************-*  ■*■■*■**■*■***■*-* -a-******.#*.) 


var 

SHORTNAME 

TEMPSTRING 

TEXTFILE 

TEMPALT 

COUNTS,  ZCOUNT 


STRINGC73 ; 
STRINGC543 ; 
TEXT; 

CHAR; 

INTEGER; 


begin  Iprintchatterbox! 
pr intone  :=  false; 

Reset (Acti veProblemFile) ; 

zcount  s  —  (f ilesize(acti veproblemf i le) )  ; 

close (acti veproblemf ile)  ; 

repeat  (main  repeat  statement! 

tempalt  :  =  alternative;  alternative  ; =  alt; 

loadit;  alternative  :  =  tempalt; 

if  zcount  >  0  then 

begin  Ilf  the  filesize  statement! 
repeat 

stopgap  false; 
gotaxy ( 1 , 12) ; 

write < 'Entering  a  Problem  Name', 
from  this  list  will  print  that'); 
gotoxy (1 , 13) ; 
write('file  for  you'); 
gotoxy (6, 14)  ; 

write('To  quit  without  printing  a  file. 
Press  F10. ' ) ; 

gotoxy ( 1 , 16)  ;  clreol; 

write ('Enter  the  name  of  the  Problem: ’); 
veri f ythename;  counts  :=  0; 


216 


i f  (stopgap)  and  not  (stopprog)  then 
begin  {conditions  are  met)- 

NewString  : =  probname+alt+'.zzz 
Assign  (textf i  le,concat  (f  i  ledrive, 

' :  ‘ ,newstring) ) ; 

{$1-) 

Reset  (text-file)  ; 

{$1+) 

i-f  lOresult  =  13  then 
begin  -ClOresult)- 

writeln (1st , 'CHATTERBOX  IS 
'  ,probname) ; 

wri teln (1st) ; 
writeln  (1st)  ; 

while  not  EOF  (text-f  i  1  e)  do 
begin  {While  statement  3- 
readln  (text-f  ile, 
tempstri ng) ; 

writeln (1st , tempstring) ; 
counts  :  =»  succ  (counts)  ; 
end;  {While  statement) 
end;  ClOresult) 
close (textf i le) ; 
end  {conditions  are  met) 
el  se 

begin 

if  not  (stopprog)  then 
warning; 
end; 

if  (counts  =  0)  and  not  (stopprog)  then 
begin  {if  filesize  else! 
gotoxy (21 , 15) ; 
write ('file  is  empty'); 
del  ay (  3000) ; 
gotoxy (21 , 15) ; 
cl reol ; 

end;  {if  filesize  else) 
until  (stopprog)  or  (stopgap); 
end  -Clf  the  filesize  statement) 
else 

nof i 1 es; 

until  stopprog;  {main  repeat  statement! 

end;  {printchatterbax J 


Pi 
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■■ 

. 


CTAILEND.LIB! 


procedure  Final Choice; 

( *********************#*****************•**■*■■*••#*•#■•#■*■■#■***•*#■•*■*■#•■*•* 


* 

PROCEDURE 

FINALCHOICE 

* 

* 

SUPPORTS  PROGRAM 

CTOUCH.PAS 

* 

* 

LOCAL  VARIABLES 

NONE 

* 

* 

GLOBAL  VARIABLES 

PROBLEMFLAG,  FLAGCHOICE,  COUNT, 

* 

* 

MEMBERS,  NAMESTRING,  PROBNAME, 

# 

* 

ALTERNATIVE 

* 

# 

ARRAYS  USED 

NONE 

* 

* 

FILES  ACCESSED 

ACTIVEPROBLEMFILE  =  'PROBS.TXT' 

* 

* 

EXTERNAL  CALLS 

NONE 

# 

* 

EXTERNAL  FILTERS 

NONE 

*■ 

* 

CALLED  FROM 

REVIEW,  WINDOWS 

* 

* 

PURPOSE 

IF  THREE  CONDITIONS  ARE  MET,  THEN 

* 

* 

MEMBERS.  CHECKSTATE  IS  CHANGED 

* 

* 

TO  WHATEVER  THE  NEW  VALUE  OF 

* 

* 

PROBLEMFLAG  IS  LOADED  INTO  THAT 

* 

# 

RECORD. 

* 

***********•*************#**************-********•*-**•*•■#•*■■*■*■*** ) 

begin  CFinalChoice! 

case  ProblemFlag  o-f 

'a'  :  ProblemFlag  s 

'b'  :  ProblemFlag  : 

c'  :  ProblemFlag  : 

'd '  :  ProblemFlag  : 

i'  :  ProblemFlag  : 

'1  :  ProblemFlag  : 

'o'  :  ProblemFlag  : 

end;  Cease  statement! 

flagchoice  :=  ' 

reset ( Act i vePr obi emFi le) ; 

Count  : =  1 ; 

while  not  EOF (Act i veProbl emFi 1 e)  do 

begin  {While  Statement! 

read (Acti veProbl emFi 1 e ,  members) ; 

if  (members. member  =  namestring)  ana 
(members. probl em  =  probname)  and 
(member s. choi ce  =  alternative)  then 


members. CheckSt ate  :=  problem-flag; 

seek  (acti  vepr obi emf ile, count— 1 ) ; 
write  (acti  veprobl  em-f  i  le, members)  ; 
count  succ (count); 

end;  -CWhile  Statement? 

close (Acti veProblemFi 1 e)  ; 

end;  {Final Choi ce? 


procedure  LoadArray; 


(##**#****#**#*##**###**#*##*#**##*■»***#**##***##*#*#*#***#» 


* 

PROCEDURE 

LOADARRAY 

* 

* 

SUPPORTS  PROGRAM 

CTOUCH. PAS 

* 

* 

LOCAL  VARIABLES 

NONE 

* 

* 

GLOBAL  VARIABLES 

TRACK 1 ,  LIMMIT,  NAMES,  Z 

* 

* 

ARRAYS  USED 

CRITARRAY 

» 

* 

FILES  ACCESSED 

KRITERIAFILE 

» 

* 

EXTERNAL  CALLS 

CRITSORT,  NEWNUMBER,  ODOMETER 

* 

* 

EXTERNAL  FILTERS 

NONE 

* 

* 

CALLED  FROM 

WIND0W3 

* 

* 

PURPOSE 

LOADS  THE  ARRAY  WITH  THE  USER'S 

* 

* 

CHOSEN  PROBLEM  FOR  RECORD 

* 

* 

MANIPULATION  BEFDRE  THE  PROGRAM 

* 

* 

TERMINATES. 

* 

#*############*##########*##♦###########*################# ) 

begin  {LoadArray? 

reset  (Kriteria-f  ile)  ; 
z  :=  f ilesize(kriteriaf ile) ; 
i  f  z  >  0  then 

begin  {if  filesize? 

Trackl  :=  1; 

while  not  EOF (Kri teri aFi le)  do 
begin  {While  Statement? 

Read (Kri teri aFi le, Names C Trackl 3 ) ; 

Trackl  s=  Trackl  +  1; 
end;  {While  Statement? 

Limmit  :=  Trackl; 

end;  {if  filesize? 
close (KriteriaFile) ; 

CritSort (Names, Li mmi t ) ;  NewNumber (Names, Li mmi t) ; 

Odometer ; 


end; 


{LoadArray? 


procedure  NewWrite(var  Names 
Integer) ; 


CritArray;  Limmit 


(**#******■»#*■»***•»•»■»*•»********■»■»#■»#**#*##***#******#*****#** 


* 

PROCEDURE 

NEWWRITE 

* 

* 

SUPPORTS  PROGRAM 

CTOUCH.PAS 

» 

* 

LOCAL  VARIABLES 

NONE 

* 

* 

GLOBAL  VARIABLES 

Z,  TRACK 1 ,  NAMES,  PROBLEMFLAG, 

* 

* 

LIMMIT 

* 

* 

ARRAYS  USED 

CRITARRAY 

* 

# 

FILES  ACCESSED 

NONE 

« 

* 

EXTERNAL  CALLS 

CRI TSORT,  NEWNUMBER 

* 

* 

EXTERNAL  FILTERS 

FILTER6. LIB 

* 

* 

CALLED  FROM 

WIND0W3,  REVIEW 

* 

# 

PURPOSE 

RELOADS  THE  CRITERIA  FILE  FROM 

* 

* 

THE  ARRAY  THAT  HAS  BEEN  CHANGED 

* 

* 

THROUGH  THE  ACTIONS  OF  THE  USER. 

* 

#*****■»**■»*****■»■»■»■»■#*•»•»*****•»■»**■»■!«■*****#•»**■*#*■»****•»-»•»<■**•»•*) 


begin  CNewWriteJ- 
if  z  >  0  then 

begin  Cif  filesize) 

Cri tSort ( Names, Li mmi t> $  NewNumber (Names, 

Limmit) ; 

rewr i te (Kri ter i af i 1 e)  ; 

Track 1  :=  1; 
repeat 

case  namesCTrackiJ. f lagl  of 

1 . . 100  :  begin 

NamesCTrackl J.StatFlag  := 
problemFlag; 

Write (kri ter iafi le, 

NamesCTrack 1 3 ) ; 

end ; 

end;  Cease  statement} 

Trackl  :=  Trackl  +  1; 
until  (Trackl  =  Limmit); 


procedure  ChangeRecord ( var  Names 

Li mmi t 


Cri tArray 
Integer; ; 


{ a*##********************************-**-*****-*******-*******-** 


*  PROCEDURE 

*  SUPPORTS  PROGRAM 

*  LOCAL  VARIABLES 

* 

«  GLOBAL  VARIABLES 
* 

• 

*  ARRAYS  USED 

*  FILES  ACCESSED 

*  EXTERNAL  CALLS 

*  EXTERNAL  FILTERS 

*  CALLED  FROM 

*  PURPOSE 

* 

# 

* 

* 

* 


CHANGERECORD  ♦ 
CTQUCH. PAS  * 
WRONGLEVEL ,  WRONGWQRD ,  CHANGECRIT,* 
CHM,  TEMP ALT,  LONGNAME,  SHORTNAME  * 
TRACK 1,  CHOICE,  W I THOUT ACHANGE ,  * 
FINDCODE,  CH,  PROBLEMFLAG,  NAMES,  * 
STOPPROG ,  COUNTED  * 
CRI TARRAY  * 
NONE  * 
GETTHEKEYS ,  NEWNUMBER  ♦ 
FILTER6.LIB,  FILTER9. LIB  * 
REVIEW  * 
ALLOWS  THE  USER  TO  CHANGE  THE  * 
ALTERNATIVES/CRITERIA,  AT  THE  * 
LEVEL  OF  DEVELOPMENT  THEY  ARE  * 
AT.  WILL  NOT  ALLOW  THEM  ^0  * 
CHANGE  CRITERIA  AT  A  -EVEL  ♦ 
PREVIOUSLY  FLAGGED  AS  FINISHED.  * 


•*♦♦#*•**■**■»•**■*■*•***•**•**•***•*•***•»■»■*■***■♦***•*■*«••»*•»**■*■*■»■»■<►*•**#*■♦•*  . 


var 

WrongLevel ,  Wi thout AChange ,  FindCode 

WrangWord 

changecri t 

chm 

3hortname 
1 ongname 
tempal t 


Boolean; 
Bool ean; 
stringi.3; 
char : 
-stringitf: 
string[58J ; 
5tnngi  123 : 


begin  CChangeRecordl 


if  alternative  *  'A'  then 
tempal t  :=  'Alternative' 

el  se 

tempal t  : =  'Criteria'; 


track  1  :=  d;  cncica 

Wi thout AChange  ; *  True;  Finacode  False; 
WrongLevel  ;=  True; 
gotoxy(2,2);  clreol; 

write( 'Enter  the  ',tempalt,'  Name  you  wish  to  change 
or  del ete:  ' ) : 

gotoxy (63,2) ; 


repeat 

get  thekeys  <  Input  stri  ng  ,  Ii3>  ; 


short Naaa  s  ■  input  string; 
gotoMy (63,2)  i 

until  (ord  (ihortna—  [  11)  >  32)  or  (stopprog) ; 

a  t  ■  2; 

changacrit  *»  short Nana C 1 3 i 

mhila  ( shor tnanaC a 3  <>  chr(13)>  and  (a^ll)  do 
bag  in 

changacrit  :■  concat  < changacr  i  t ,  lhortnamCa]  )  ; 
a  *-  a  ♦  1« 

and; 

rapaat 

gotoxy (2,2);  clraol; 

Mronglaval  « ■  trua; 

Mrongaord  s ■  -falsa; 

track  1  :«  trackl  ♦  1; 

casa  prod  lam-flag  o-f 

' a ’ ,  * i '  t  bag  in 

if  (naaasC  track  1  3  .  cntnaaa  * 
changacrit)  and 
(naaasC track  1 3 . f 1 aq2  »  0> 
than 
baqin 

Without AChanga  :»  Falsa: 

gotoxy (2,2) ; 

wri  ta (NaaasC Trackl  3. 

Cri tNaaa, ' i  ' , 
NaaaaC Trackl 3. Cr it Daf ) : 
gotoxy (2,4)  ; 
xritfi  'Do  /ou  mi sh  to 
daiata  this  , 
er  changa  it?  D/C  '); 
FindCoda  : ■  Trua; 
gatthakavs  i Inputstring . l > 
choice  :■  inputstring; 
WrongLaval  :■  Falsa; 
gotox v (2,4) ; 
clraol ; 
and; 

if  ' naaasC track  1 3 . cri tnama  ' 
changacrit1  and 
namasC  tr ac k  1  I .  f  1  ag2  *  «3> 

than 

wrongword  :  =  trua: 

and; 

o  ,  1  :  aaqin 

if  namasC tr ac k 1 3 . cr i c name  * 
changacrit)  and 
(naaasC  trac>,  I  3  .  f  1  agl 


>  an 


(rn— XtrickU.flagS  ■  I) 
than 
bag  in 

Wi thout AChanga  *■  Falt«i 

got  ox  y  (2,2)  ; 

ari ta(NaaasC Track 1 J. 

CritWaaa, ' *  ' , 

NaaasC Track  1 l.CritDaf > i 
gotoxy <2, 4) j 
writa< 'Do  you  Mish  to 
dalata  this  ', 

'or  changa  it?  D/C  '), 
FindCoda  i ■  Trua; 
gatthakays( Input string, 1 ) ; 
choica  * ■  inputstring; 
WrongLaval  i ■  Falsa; 
gotosy (2,4) ; 
clraol ; 
and; 

if  (naaasC track  1 l.critnaaa  <> 
changacrit)  and 
(nsaasCtrackl 3. f lag3  -  0) 
than 

wrongword  »■  trua; 

and; 

bagin 

if  (nasa«Ctrackl].cri tnaaa  “ 
changacrit)  and 
(naaasCtrackll.f lag3  >  0) 
than 
bagin 

Wi thout AChanga  **  Falsa i 

gotoxy (2,2) i 

mti  to  < Nanas CTrackl  J  . 

Cr i tNasa ,  »  , 

Nanas C Track  1  3 .  Cn  tDaf  )  t 
gotoxy (2,4)  ; 
ar  itaC'Do  you  mi  sh  to 
dalata  thi s  ’  , 

'or  changa  it?  D/C  ')» 
FindCoda  i ■  Trua; 
gatthakays ( Input string , 1 > i 
choica  :  ■  inputstnnqi 
WrongLaval  :»  Pal  sas 
got  ox  y  (2 , 4)  j 
clraol ; 
and; 

if  (nanasC track  1 ]. cn tname  <  > 
changacrit)  and 
(nasasCtrack 1 3 . f 1 ag3  0) 

than 

Mrongaord  :■  trua; 


and; 


until  (track 1 


liaait— 1)  or  (findcoda); 


if  wrongMord  than 
bagin 

if  altarnativa  »  'A'  than 
taapalt  i ■  A1 tarnati va ' 

alsa 

taapalt  i ■  'Critaria'i 

clrscri  sound  (SOT))  dalay(lM);  nosound  i 
gotoMy  (13,2)  | 

art tain (You  aay  hava  aisspallad  tha  ', taapalt, 
.  Try  again. ' ) i 
dal  ay  (SMC)  j 

got ok y ( 13,2) )  clraal) 

FindCoda  t ■  Trua) 

Mrongl aval  i ■  falsa) 

and) 

if  aronglaval  than 
bagin 

if  altarnativa  ■  'A*  than 
taapalt  i-  Altarnativa 

alma 

taapalt  i»  Critaria'i 

clrscri  sound (SOT) f  daisy (100);  nosound: 
gotoKY  < 12.2) | 

wri tain ('You  aay  not  changa  tha  '.taapalt, 
at  that  1 aval ' ) i 
dal  ay (5000) | 

got  ok  y  ( 12,2)  ;  drool: 

FindCoda  i ■  Trua) 
aranglaval  *-  falsa; 

and) 

if  choica  -  D'  than 

bagin  (If  Dal  ate  Stataaant > 

clrscr; 
got ok y (2,2) | 

ar i ta (NamasC Track  1 ]. Cr i tNaaa , 

Namas CTrackll.Cri tDaf ) ; 

got ox y (2,4) : 

tax tbackground (rad) i 


choice  i ■  '  'j  got ax y ( 12,9) y 

if  alternative  »  *A'  then 
teepelt  i-  ALTERNATIVE 

else 

teepelt  «-  CRITERIA  ) 

xriteC  YOU  ARE  ABOUT  TO  DELETE  THIS  RECORD' • 1 
BE  ADVISED  >  i 
got ax v ( 12, 10) ; 

writer  THAT  A  YES  ANSWER  TO  THIS  QUESTION  WILL 
REMOVE  THIS  *>| 
got ox y <12, 11 ) % 

writer  ' , TEMPALT , '  PERMANENTLY.  DO  YOU  STILL 
WISH  TO  DELETE  ' ) » 
got ox y <12, 12) | 

writer  THIS  *  ,tee*alt ,  '?  Y/N 

‘  >  t 

got  ox  y  (02, 12)  | 

repeat 

getthekeys < Input string , 1 ) ) 
ch  t*  inputstring) 
che  i ■  ch| 
gotoxy (04, 12) t 
until  che  in  C'Y'.'N'I* 

clrscr j 

if  ch  -  Y'  then 

begin  (Embedded  If  Delete  Statement: 

ch  j»  Nj 
gotoxy  <  2 , 2  >  ; 

wr i te (NamesCTrack 1 3 . Cr i tNaee, ' i  , 

Names C Track  1 1 . Cr l tDef ) j 
gotoxy  <2,4; ; 
gotoxy  <21,11) ; 

write (This  ' , tempal t , ’  has  been 
deleted ' ) t 

Names! Track 1 J. FI agl  *-  0) 

dal  ay (4000) ; 

gotoxy (2,2):  clrsolj 

qotoxv (2.4) ;  :;r?oi ; 

changer »c  : =  C  ; 

end:  (Embedded  If  Delete  Statement) 

end)  (If  Delete  Statement: 

.f  chaica  =  2  then 


begin 


(If  Change  Statement 


Naaas 


ii  altarn«tiv«  «  A'  than 
taapalt  »»  Altarnativa 

•In 

taapait  *-  Criteria  % 


choi ca  i ■  l 
gotoxy (2,3) | 

Nrita(  Entar  tha  Naw  ,taap«it, 
got  ox  v<  33, 3)  » 


rapaat 

gatthakays  ( Inputstring,  IB)  ; 
short Naaa  *■  inputstringi 
got ox y (33,3) | 

until  (ord (ahortnaaaC 1 1 )  >  32)  or 
(stapprog) « 
a  •■  2| 

naaaaCtrackn.cn  tnaaa  i«  short  Naaa  C  1  J ; 


Mhila  (ahortnaoaCal  v>  chr(l3>)  and 
<a«.'  11)  do 

bagi  n 

(tacaaC  track  1  3 .  cr i  tnaaa  s* 
cone  at  tnaaaaC  track  i  2.  cn  tnaaa . 

ahortnaaa[«] > : 
a  t »  a  ♦  1 ; 
andt 

got  ox  y  <2, 4)  |  «arita(  Oa-finationi 

got ox y  < 13,4) i 


rapaat 

gartthakays  <  Inputstr:  nq  ,  30 )  : 

1 on q Naaa  s»  .nputstrinq: 
gotox  y  < 15 , 4 ) ; 

until  (ord < 1 ongnaaaC 1 1 )  >32)  or 

1 stoppr oq ,  ; 

•  •  -I 

naaaaC track  1 1. cr  i tdaf  s  *  1 ongNama C 1 J ; 


Mhila  (1  ongnaaaC  a  J  w  chr<13)>  and 
< a< count 1 )  do 
baqin 

nanaa;  track  i  J .  cn  tdat  :  = 

cone  at  .  namaa  4.  tr  ick  1  ; .  *r  .  •  : ,  .  -.,;r  iim? 

a  i«  a  ♦  li 
and  i 

clracrj  gotox y  1 2 , 2 > ; 

xrtta(na«a»[TricH  l.cr'.trame. 
naaasf  "V  sc*  .  !  . cr i tde*  ; 

gotox  y ( 22 , 4 ) ; 

»ri*n  Tha  ,  rampai  t  ,  nas 


•■tm 


i 


changed  ) | 
delay  (2SGB)  | 
gotoxy (22,4) ; 
got ox y <2, 2) ; 
changerec  : ■  C'; 


clreol ; 
clreol i 


end  | 


<!♦  Change  Stat 


NewNueber ( Naaes ,  Li melt); 
(I  CChangeRecord) 


e  Ran  ToCoep  1  eti  on  | 


PROCEDURE  t 
SUPPORTS  PROGRAM  t 
LOCAL  VARIABLES  t 
GLOBAL  VARIABLES  t 
ARRAYS  USED  t 
FILES  ACCESSED  t 
EXTERNAL  CALLS  t 

EXTERNAL  FILTERS  : 
CALLED  FROM  : 
PURPOSE  i 


RANTOCOMPLET I ON 
CTOUCH . PAS 


PORT C *0309 1 ,  SET BORDER  (INTERAL  * 
PROCEDURE)  * 
NONE  • 
WINDOWS  • 
THIS  PROCEDURE  INFORMS  THE  USER  * 
THAT  ALL  MEMBERS  OF  THE  COMMITTEE  * 
ARE  IN  COMPLETE  AGREEMENT  WITH  « 
THE  CRITERIA  CONCERNING  THE  * 
PROBLEM.  IT  DIRECTS  THEM  TO  GO  * 
ON  TO  THE  FIRST  STAGE  OF  THE  * 
CO-OP  SYSTEM.  A  BIT  MUCH  ISN'T  IT-** 


procedure  Set border (col or i byte) j 
begin  {set border} 


port C *B3d9 ] i ■  N  and  color; 


end:  C set border) 


begin  CRan ToCoep let  ion J 


i ntroscreen; 
gotoXY (8,8) : 

write (You  are  now  ready  to  ent 
got ox y ( 18, IS) t 

write(  Press  any  k*v  to  exit'); 

repeat 

♦or  I  i*  0  to  15  do 


er  the  CO-OP  system'); 


V™iAW.W  *  • ,  ‘Vr  * ,  '•  * , 


setborder  < I ) ; 
dal  ay (500) * 
and; 

until  keypreased; 

•at border (9) ; 

and;  {RanToConpletion! 


procadura  Raviatnivar  Names  x  CritArray; 

Limmit  i  Integer); 

(*********************************************************** 


« 

PROCEDURE 

i 

REVIEW 

* 

« 

SUPPORTS  PROGRAM 

t 

CTOUCH. PAS 

* 

• 

LOCAL  VARIABLES 

t 

CHM,  TEMPALT 

* 

• 

GLOBAL  VARIABLES 

X 

PT1 ,  PT2,  PT3,  PT4,  PROBLEMFLAG, 

* 

* 

SCROLLIT  TRACK 1 ,  CH,  INPUTSTRING, 

* 

« 

FLAGCHGICE 

* 

* 

ARRAYS  USED 

t 

NONE 

* 

* 

FILES  ACCESSED 

X 

NONE 

» 

* 

EXTERNAL  CALLS 

X 

REVIEW1 ,  GETTHEKEYS,  CHANGERECORD 

,* 

# 

F I NALCHO I CE ,  NEWWRITE 

* 

* 

EXTERNAL  FILTERS 

X 

* 

« 

CALLED  FROM 

X 

* 

* 

PURPOSE 

e 

ALLOWS  THE  USER  TO  REVIEW  PAST 

* 

* 

ALTERNATIVES/CRITERIA,  AND  CHANGE 

* 

* 

THEM,  DEPENDING  AT  WHAT  STAGE  OF 

* 

* 

THE  DEVELOPMENT  THEY  ARE  AT. 

* 

) 


var 

CHM  x  CHAR; 

TEMPALT  s  STRING! 121 ; 
begin  {Review! 


clrscr ; 

ptl  :*  2;  pt2  s  *  2;  pt3  :  =*  77;  pt4  21; 
windowCptl ,pt2,pt3,pt4) ;  clrscr; 

scrollit  :■  true;  track 1  :  *  1; 
review 1 (names, 1 immi t) ; 

case  problem-flag  of 


'a  ' .  . 'd  '  ,  'i  '  ,  '  1  ' ,  'o  '  i 


begin  {Inside  of  Case  Statement! 


repeat 


if  alternative  =  'A  then 
tempalt  s 3  'Alternatives' 

el  se 


22B 


tempal t 


'Criteria ' ; 


got ox y < 12, 1 ) ;  ch  :=  'N';  clreoi; 

write('Do  you  Wish  to  Change  a  portion  of 
the  ' ,tempalt, '?' > ; 
got ox y ( 12,3) ;  clreoi; 

write( 'Press  Home  Key  to  activate 
Scrolling.  Press  Enter'); 
gotoxy ( 12,4) ;  clreoi; 

write('Key  before  answering  the  question 
after  Scrolling.'); 
gotoxy (66,1) ; 

getthekeys ( Inputstr i ng , 1 ) ; 
ch  s“  inputstring; 

if  ch  «  Y'  then  {  Y  > 

begin  {Embedded  If  Statement! 
gotoxy < 12, 1 ) ;  clreoi; 

gotoxy < 12,3) ;  clreoi; 
gotoxy ( 12,4) ;  clreoi; 
ch  • —  'N'; 

ChangeRecor d <  Names ,  Li mmi t  > ; 

track 1  :*  1; 

reviewl (names, li mmi t)  ; 

Trackl  :=*  1; 

end;  {Embedded  If  Statement! 

until  ch  »  'N'; 
scrollit  : »  false; 
end;  {Inside  Case  Statement! 
end;  {Case  Statement! 
case  problemflag  of 

a'.,  d  ' ,  i  ' ,  '1  '  ,  o'  ; 

begin  {Inside  of  Case  Statement! 
clrscr;  gotoxy (20, 3)  ; 

write(‘Are  you  finished  reviewing  this 
level ' ) ; 
gotoxy (20,9) ; 

write ('or  will  there  be  more  changes? 

Enter  ' ) ; 
gotoxy (20, 10)  ; 

write!''  F’"  for  Finished  or 
*  *M"  for  More;  ' )  ; 
gotoxy (58 , 10) ; 


repeat 

getthekeys( Input string, 1 ) ; 
flagchoice  : =  inputstring; 
chut  s  =  flagchoice; 
gotoxy (53, 10) ; 
until  CHM  in  C  *F* , 'M'3; 

if  (FlagChoice  -  'F ' )  then 
Final Choice; 

end;  l Inside  of  Case  Statement! 

^  i  j  i  ^  *  i  n  ,  p  * 

begin 

gotoxy (2,2) ; 
write ('Press  Return  to 
continue:  '); 

getthekeys ( Input stri ng , 1 ) ; 
end; 

end;  (case  statement! 

NewWr i t e  < Names , Li mmi t ) ; 
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